Frage zu FreeAndNil

[himitsu]

Zitat von DelTurbo:

EDIT: da war himitsu schneller

Strg + Linksklick auf FreeAndNil

Delphi-Quellcode:

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

was logisch gesehn in etwa Diesem entsprechen würde

Delphi-Quellcode:

procedure FreeAndNil(Obj: TObject);
begin
  try
    Obj.Free;
  finally
    Obj := nil;
  end;
end;