Überprüfen ob ein Objekt existiert aber wie?

[DeddyH]

Zur Verdeutlichung des eben Gesagten:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FBla: TStringlist; //wird automatisch mit nil initialisiert
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Bla: TStringlist; //wird NICHT initialisiert, enthält Zufallswert
begin
  if Assigned(Bla) then
    ShowMessage('*Oops*, ein wilder Zeiger');
  if Assigned(FBla) then
    ShowMessage('*Oops*, noch ein wilder Zeiger')
  else
    ShowMessage('Hier ist alles OK');
end;

Der Compiler gibt für die lokale Variable auch eine entsprechende Warnung aus.