Speicherverbrauch bei langer if...then-Liste

[Daniel]

Zitat von Sel2012:

Es ist ja gerade das Rätsel, dass ich ganz einfach deine These vom "zuverlässigen IF...THEN" widerlagen kann

Ganz so einfach ist es nicht.
Stand jetzt hast Du ein fehlerhaftes Projekt - den Nachweis hast Du erst dann erbracht, wenn Deine Situation reproduzierbar wird. Und genau das ist ja nach Deiner Aussage nicht gegeben.

[Sel2012]

Zitat von Daniel:

Zitat von Sel2012:

Es ist ja gerade das Rätsel, dass ich ganz einfach deine These vom "zuverlässigen IF...THEN" widerlagen kann

Ganz so einfach ist es nicht.
Stand jetzt hast Du ein fehlerhaftes Projekt - den Nachweis hast Du erst dann erbracht, wenn Deine Situation reproduzierbar wird. Und genau das ist ja nach Deiner Aussage nicht gegeben.

Ich muss nur die "Liste" der if...then-Zeilen auf 30 reduzieren und schon läuft alles tausendfach stabil. Also muss der "Fehler" in der nicht mehr ständig, sondern nur gelegentlich funktionierenden Zuordnung zum THEN liegen. Darin sehe ich kein Programmierfehler, sondern ein internes Programm-Problem.
Aber, wie schon festgestellt, wäre diese Abfrage für 2000 Wörter nicht praktikabel. Nur theoretisch wäre eine Erklärung des Phänomens interessant.

[DeddyH]

Wenn ein Programm nicht tut, was es soll, liegt das in den allermeisten Fällen an Denkfehlern des Programmierers, gefolgt von Fehlern in den verwendeten Klassen/Komponenten und nur in ganz ganz seltenen Fällen (ich schätze, weit unter 1%) an Fehlern im Compiler.

[Uwe Raabe]

Zitat von Sel2012:

Also muss der "Fehler" in der nicht mehr ständig, sondern nur gelegentlich funktionierenden Zuordnung zum THEN liegen. Darin sehe ich kein Programmierfehler, sondern ein internes Programm-Problem.

Dann siehst du das falsch. Ein IF-THEN funktioniert unter denselben Voraussetungen entweder immer oder nie. Die Tatsache, daß es bei allen anderen immer funktioniert und nur bei dir manchmal, ist ein starkes Indiz, daß die Ursache eben nicht in Delphi liegt, sondern in dem, was du programmiert hast. Offenbar stellst du eben nicht immer dieselben Voraussetzungen sicher. Das Problem ist also mit Sicherheit kein Fehler in Delphi - und das wird dir jeder hier, der mit Delphi arbeitet, bestätigen können.

Wenn ich hier mal aus dem The Pragmatic Programmer zitieren darf:

Zitat von Pragmatic Software Development Tips:

“select” Isn’t Broken
It is rare to find a bug in the OS or the compiler, or even a third-party product or library. The bug is most likely in the application.

Leider können wir ohne den vollständigen Quelltext bzw. eine vollständige Testumgebung auch nicht sagen, was die eigentliche Ursache ist. Damit könnten wir auch noch eine weitere, wenn auch sehr unwahrscheinliche Fehlerquelle (eine defekte Hardware) ausschließen.

[hoika]

Hallo,
also beim Code sagt mir doch der Compiler "value not assigned", weil ton2 nicht initialisiert ist.

Lieber TE , du hast einen Bug produziert, sieh es einfach ein.

Also bitte mehr Code.

Wie steht es eigentlich mit einem Unit-Test?


Heiko

[Aviator]

Das liegt wohl an der Zeile: mediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, (ton2+'.mp3')); Hier könnte es passieren, dass keine der IF-Statements greift und somit die Ausgabe ".mp3" wäre, da in ton2 nichts drin steht.

Edit: Um die Warnung zu entfernen, solltest du beim Aufruf der Procedure(?) den Wert von ton2 auf '' initialisieren.

[Helmi]

Drehen wir doch den "Delphi-"Spieß doch einfach mal um:
Zeig uns doch mal deinen kompletten Code bei dem es zu Problemen kommt und auch das Suchwort
bei dem es vermeintlich zu Differenzen in der Verarbeitung von IF..THEN kommt.

[haentschman]

@hoika:

Zitat:

Wie steht es eigentlich mit einem Unit-Test?

...da mußte ich schmunzeln. Offensichtlich hat der TE, ohne es abwertend zu meinen, nur Basiswissen. Meinst du nicht das das ihn überfordert?

[Helmi]

Zitat von Aviator:

Edit: Um die Warnung zu entfernen, solltest du beim Aufruf der Procedure(?) den Wert von ton2 auf '' initialisieren.

Oder mal folgendes:

Delphi-Quellcode:

ton2 := '';

  if suchwort = 'am' then ton2:='am';
   if suchwort = 'im' then ton2:='im';
   if suchwort = 'Bär' then ton2:='Baer'; 

//...jede Menge if...then´s

   If ton2 <> '' then
     begin
       mediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, (ton2+'.mp3'));
       mediaPlayer1.Play;
     end;

Jetzt müssten ja "Aussetzer" zu hören sein, wenn das Suchwort nicht vorhanden ist

[stahli]

Kennst Du CodesiteLogging? XE5 hat das dabei (denke ich).

CodesiteLogging in den Uses einbinden und dann

Delphi-Quellcode:

   if suchwort = 'am' then ton2:='am';
   if suchwort = 'im' then ton2:='im';
   if suchwort = 'Bär' then ton2:='Baer'; 

   Codesite.Send(Suchwort + '->' + ton2);

   mediaPlayer1.FileName := TPath.Combine(TPath.GetDocumentsPath, (ton2+'.mp3'));
   mediaPlayer1.Play;

So kannst Du zumindest mal die Ergebnisse verfolgen.

Oder hast Du einfach einen Bereichsüberlauf. Sind Deine Arrays mit 1 initialisiert?

Die Übersetzung würde ich aber wirklich über ein Dictionary, Stringlist oder Ini lösen.
Letzteres hätte den Vorteil, dass Du sie auch mal ohne Neukompilierung ändern und erweitern kannst.