Wie bekommt man eine "Warnung" weg ?

[dango]

Du kannst das create auch innerhalb des try-Blocks lassen und Ini for dem try-Block erstmal mit nil initialisieren ! Ich war zwar auch ein wenig überrascht, aber genau dadurch hatte ich gerade gestern einige schwerwiegende Fehler in meinem Programm !

So wie Du es ursprünglich hattest, würde es zu einem Fehler kommen, wenn es beim create zu einer Exception kommt und free dann für das nicht initialisierte ini aufgerufen würde. Hast Du ini aber vorher mit nil belegt, geht alles glatt !

Ich würde es so machen:

Delphi-Quellcode:

procedure TRefresh.Execute;
begin
  try
    Ini := nil;
    try
      fehler := sfehler;
      Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Wechselkurse.ini');
    finally
      Ini.Free;
    end;
  except
  end;
end;

Gruß
Daniel