Hi!
Bei der Implementierung von FreeAndNil hätte ich eigentlich erwartet:
Delphi-Quellcode:
procedure FreeAndNil(var Obj);
begin
Obj.Free;
Obj := nil;
end;
Allerdings ist es etwas umständlicher implementiert:
Delphi-Quellcode:
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;
Könnt ihr mir sagen, warum?