Prüfen, ob Klasse "Created" wurde

[mirage228]

Hallo,

ich wollte wissen, wie man effektiv prüft, ob eine Klasse bereits mit "Create" erstellt wurde!

Die Funktion "Assigned" prüft ja nur, ob die Variable = NIL ist, aber die Variable ist ja dann auch nicht mehr gültig, nach dem ich sie mit .Free freigebe!

Wie kann ich den Status am besten prüfen??

thx
mirage228

[Christian Seehase]

Moin Mirage,

um das Problem zu umgehen gibt es in neueren Delphi Versionen FreeAndNil. Das macht im Prinzip nichts anderes als .Free mit anschliessendem := nil.

Delphi-Quellcode:

var
  btn : TButton;

begin
  btn := TButton.Create(self);
  try
    // mach was mit dem Button
  finally
    FreeAndNil(btn);
    // oder
    btn.Free;
    btn := nil;
  end;
end;

[mirage228]

thx, jetzt klappts wie geschmiert ;-)