Delphi Warum FreeAndNil so umständlich?

Warum FreeAndNil so umständlich?

Ein Thema von Cöster · begonnen am 16. Mär 2007 · letzter Beitrag vom 17. Mär 2007

Cöster

Registriert seit: 6. Jun 2006
589 Beiträge

Turbo Delphi für Win32

16. Mär 2007, 22:43

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?

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: