Frage zu mehreren Try's

[Stefan Hueg]

Ok ich glaube ihr versteht noch nicht so recht was ich erreichen will ^^

Anderes Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TIniFile;
begin
  try
    Test := TIniFile.Create('C:\test.txt');
    Test.WriteString('Test', 'Test', 'Test');
    Test.Free;
  except
    on EIniFileException do
      ShowMessage('Fehler bei Ini-File');
  else
    ShowMessage('Irgend ein anderer Fehler');
  end;
end;

Wenn das Objekt erstellt, in die Ini-Datei geschrieben werden konnte: Kein Problem
Aber tritt bei WriteString beispielsweise ein Fehler auf, weil die Datei schreibgeschützt ist beispielsweise, wird das Objekt gar nicht mehr freigegeben, obwohl es erfolgreich erstellt wurde.

Ich müsste nun irgendwie herausfinden ob das Objekt erfolgreich erstellt wurde, dann kann ich sicher sagen dass ich es auch freigeben kann.