feststellen ob Object existiert!

[himitsu]

@malo:

wenn ich aber jetzt auf ein noch nicht initialisiertes Objekt (in 'ner lokalen Variable) prüfen lassen, dann bekomm ich aber einen netten Fehler und dat Programm verreckt.

Delphi-Quellcode:

var StringList: TStringList;
begin
  // StringList := Pointer($12314564);  // notfalls könnte man ja auch seber mal einen undefinierten Wert einfügen
  if (not (StringList is TStringList)) then
  begin
    StringList := TStringList.Create;
  end;
  StringList.Free;
end;