Moin!
2 Dinge:
1. Der Code: klappt das wirklich so? Weil ich bin mir jetzt überhaupt nicht sicher, ob bei dem Exit der Finally Block
überhaupt noch ausgeführt wird?
IMHO nämlich nicht -> Folge: Speicherleck.
2. Man kann sich die lokale Variable auch sparen, mit einem With Do Block (wegen 1. ändere ich auch gleich mit ab)
Delphi-Quellcode:
procedure TMDIvertreterkonto.act_HVSuchenExecute(Sender: TObject);
Begin
With TDLGsuchergebnissUebernahme.create(self) Do
Begin
Try
If ( Showmodal() = mrOk ) Then
Begin
// hier mit DLG machen was du willst
End;
Finally
Free;
End;
End;
end;
MfG
Muetze1