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.
![Duck](images/smilies/duck.gif)
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.