Objekt prüfen, ob es noch existiert oder zerstört ist.

[Golze]

Hi Schlaumis,
habe das Problem, eine Form nach einem Release zu prüfen, ob sie noch existiert oder nicht. Das gleiche gilt auch für ein Free. Wer kann mir ein Tip geben, wie ich ein beliebiges Objekt prüfen kann, ob es noch wirklich existiert, wenn die Referenzvariable nicht explizit auf NIL gesetzt worden ist.

Delphi-Quellcode:

Var
  form1: TFrom;
begin
  form1 := TForm.Create(Application);
  ....
  form1.Release;
end;

procedure CreateLostForm;
begin
  if form1 = nil then //[b]das funktioniert nicht!!!!![/b]
    form1 := TForm.Create(Application);
end;

kay