Speicherverbrauch bei langer if...then-Liste

[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.

[Sel2012]

[QUOTE=Uwe Raabe;1311566]

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.

Entwarnung?! Ich habe aus anderen Gründen den Rechner ganz neu gestartet und siehe da, das Problem ist weg.
Ich konnte mir ja auch nicht erklären, warum simple und überschaubare IF..THEN-Anweisungen zu einem nicht konstanten "Zufallsergebnis" führen sollte. Also war es doch wohl ein außerhalb von Delphi liegendes temporäres Speicherproblem des Rechners.

[Daniel]

Zitat von Sel2012:

[Ich habe aus anderen Gründen den Rechner ganz neu gestartet und siehe da, das Problem ist weg.
Ich konnte mir ja auch nicht erklären, warum simple und überschaubare IF..THEN-Anweisungen zu einem nicht konstanten "Zufallsergebnis" führen sollte. Also war es doch wohl ein außerhalb von Delphi liegendes temporäres Speicherproblem des Rechners.

Solang es keine reine Beschäftigungstherapie für die DP-Benutezr war ...
Nachdem das Problem gelöst ist, wie die Ursache vermutlich nie finden werden mache ich hier mal zu. Auf Basis dieser dünnen Informationslage erübrigen sich weitere Beiträge.