Free oder FreeAndNil=

[mkinzler]

Zitat:

Sicher? Ich würde sagen, "FreeAndNil" nach "Free" wird auch einen Fehler werden Razz

Nein, den FreeAndNil() überprüft vorher

[DeddyH]

Ja, das prüft auf Assigned(), was in diesem Fall aber das falsche Ergebnis liefert, also knallt es.

[Hawkeye219]

Hallo,

Fabian bezog sich wohl auf den von Heiko geposteten Code. Man muss die beiden Codestücke in dessen Beispiel voneinander losgelöst sehen.

Gruß Hawkeye

[taaktaak]

Zitat:

FreeAndNil() überprüft vorher

Offenbar aber nicht in allen Versionen der "SysUtils"
- in meiner (Delphi 7) Version kann ich keine Prüfung entdecken :(

[himitsu]

Jaaaa, also wenn man den Code genauso nimmt, wie er dort steht, dann knallt es natürlich :roll:

ich glaub es war auch mehr so gemeint :zwinker:

Delphi-Quellcode:

object.Free;
if Assigned(object) -> liefert Müll

Delphi-Quellcode:

FreeAndNIL(object);
if Assigned(object) -> liefert immer False (weil object NIL ist)

[edit]
genau @Hawkeye219

@taaktaak:
doch doch

Delphi-Quellcode:

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

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

[Muetze1]

Zitat:

Zitat von taaktaak

Zitat:

FreeAndNil() überprüft vorher

Offenbar aber nicht in allen Versionen der "SysUtils"
- in meiner (Delphi 7) Version kann ich keine Prüfung entdecken :(

Falsch formuliert: .Free prüft vorher und da FreeAndNil() intern .Free aufruft, hat es auch diese Prüfung.

@QuickAndDirty: Dein Argument ist hinfällig, da alles was du beschreibst auf unsaubere Programmierung hindeutet und genau da liegt das Problem und nicht bei FreeAndNil()

[taaktaak]

Asche auf mein Haupt
- natürlich :pale:

[Dezipaitor]

Interessant:
http://blog.eurekalog.com/?p=135