Speicherverbrauch bei langer if...then-Liste

[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