Pointer is TObject?

[sirius]

Zitat von Nuclear-Ping:

Gibts da nicht IsObject oder IsClass?

IsClass gibt es (wenn auch versteckt). Wird aufgerufen, wenn man dies schreibt: "if Sender is TIrgendetwas".
(TIrgendetwas darf nur nicht TObject sein, da wird nur überprüft ab Sender<>nil ist)
Es wird dann TObject.Inheritsfrom aufgerufen, was bei allen "NichtObjekten" zu einem Fehler führen könnte. Damit hätte man dies überprüft.

Ähnliches erreicht man z.B. damit:

Delphi-Quellcode:

function isObject(aObject:pointer):boolean;
//type ppointer=^pointer;
var pp:ppointer;
begin
  pp:=pointer(aObject);
  try
    result:= (ppointer(integer(pp^)+vmtselfptr)^=pp^)
  except
    result:=false;
  end;
end;

...um mal so die grundlegende Struktur eines Objektes zu überprüfen.

Direkt eine gängige Funktion bzw überhaupt eine Möglichkeit ist mir nicht bekannt. Es wird ja nirgends gespeichert, was in dem Pointer ist.
Du könntest es allerdings mit TVarRec bzw. sogar Variant umgehen (bei letzterem bin ich mir nicht sicher).