Zitat von
Christian Seehase:
Moin Zusammen,
um es mal allgemein zu schreiben (wenn man denn einen try/except-Block braucht:
Delphi-Quellcode:
try
<Resource belegen>
try
<Mit der Resource arbeiten>
finally
<Resource freigeben>
end;
except
<Ausnahme behandeln>
end;
Das finally würde ich ans Ende setzen. Kleines Praxisbeispiel, Preisfrage: wird der Fehlerdialog angezeigt?
Delphi-Quellcode:
var
SL: TStrings;
S:
string;
begin
try
// Resource belegen
SL := TStringlist.Create;
try
// Mit der Resource arbeiten
S := SL[1];
finally
// Resource freigeben
FreeAndNil(SL);
end;
except
// Ausnahme behandeln
on E:
Exception do
begin
ShowMessage(E.
Message + Format('
- S hat %d Elemente', [SL.Count]));
end;
end;
end;