Ich bin mir nicht ganz sicher, wie ich hier richtig vorgehe, bzw. ob ich das so machen kann:
Delphi-Quellcode:
type
TMyform=class(Tform)
...
private
sl: TStringList
end;
implementation
procedure Tmyform.dosomething;
begin
sl:=TStringList.create;
try
...
if bedingung1 then
if bedingung 2 then ModalResult:=mrOK
else Modalresult:=mrAbort;
...
finally
sl.free;
end (* try *);
end;
Kann ich davon ausgehen, dass bei der Abarbeitung der finally-Klausel meine Form noch existiert und das sl.free sicher durchgeführt wird, oder riskiere ich unter Umständen, dass ich mir mit der Zuweisung an Modalresult quasi den Ast abgesägt habe, auf dem ich sitze?