Objekt freigeben

[neolithos]

Der grund warum man das so machen sollte ist folgender...

Delphi-Quellcode:

  if l then
     obj := TSomething.Create
  else
     obj := nil;
  
  FreeAndNil(obj); // erzeugt nix Fehler, wenn obj = nil
  // nun ist obj = nil

FreeAndNil könnte man auch durch

Delphi-Quellcode:

  obj.Free;
  obj := nil;

ersetzen...