Zitat von
Christian Seehase:
Das der Aufruf von Free den Inhalt nicht auf nil setzt ist klar?
Genau das könnte die Fehlerquelle sein
Dieser Code
Delphi-Quellcode:
with TObject.Create do
begin
Free;
Free;
end;
Bringt eine (wahrscheinlich
die)
exception.
Mögliche Lösung: Nicht TObject.Free verwenden, sondern FreeAndNil(TObject)
btw:
if Obj <> nil then Obj.Free bringt nix. In Free selbst wird schon überprüft:
if self <> nil then Destroy();