Speicherverbrauch bei langer if...then-Liste

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