Objekte freigeben

[mjustin]

Zitat von jfheins:

Schon - aber Free testet ungefähr so:

Delphi-Quellcode:

procedure Free
begin
if Self <> nil then
  Destroy;
end;

Hilft auch nicht immer:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  X: TObject;

  // aus SysUtils.pas
  procedure FreeAndNil(var Obj); 
  var
    Temp: TObject;
  begin
    Temp := TObject(Obj);
    Pointer(Obj) := nil;
    Temp.Free;
  end;

begin
  FreeAndNil(X)
end;

wirft eine 'Externe Exception C00001D' (in D6, und etwas ähnliches in D2009).

Warnungen oder Hinweise wegen der nicht initialisierten Variable X gibt es keine - da muss man halt aufpassen