Hallo,
Einspruch Euer Ehren
Delphi-Quellcode:
procedure MachwasMit(AObject: TMyObject);
begin
AObject.Free;
end;
function irgendwas:boolean;
begin
Result:= False; // diese Zeile wird nicht mehr wegoptimiert
MyObject:=TMyObject.Create;
try
MachwasMit(MyObject); // hier wird das Objekt aus Versehen freigegeben
Result:= True;
except
// nu kommst du
end;
MyObject.Free; // was passiert dann wohl hier?
end;
Das ist mir auch schon vorgekommen ...
Das leere
except
end;
sollte man natürlich mit einer sinnvollen Meldung (z.B. Logging) füllen.