Überprüfen ob ein Objekt existiert aber wie?

[Furtbichler]

Zitat von Darlo:

Zitat von derMischka:

Hier noch ein weiter Ansatz:

Delphi-Quellcode:

function ObjectExists(aObj: TObject): boolean;
begin
  Result := False;
  if aObj = nil then exit;
  try
    Result := aObj.InheritsFrom(TObject);
  except
  end;
end;

derMischka

Leere Exception-Blöcke sind doch noch böser als globale Vars.

Absolut korrekt, obwohl hier 'eigentlich' eine scheinbar gute Absicht dahinter steckt, nämlich auch nicht genullte, aber ungültige Zeiger als solche zu erkennen.

Aber das kaschiert ja nur den eigentlichen Fehler. Und *das* ist sogar noch schlimmer als leere exception-Blöcke.