AncestorOfObject

← →
Boguslaw (2005-12-31 21:13) [0]

I"m not sure if I properly understand this method

Are that the same ? :

if IgnClass.InheritsFrom(cm.HClass) then begin //Delphi

if pObj(IgnClass).AncestorOfObject(cm.HClass) then begin //KOL

IgnClass is Pointer (to some object)

← →
Boguslaw (2005-12-31 21:16) [1]

Correction:
cm := PClassMode(<object stored in TList>)

type
PClassMode = ^TClassMode;
TClassMode=
object(TObj)
HClass:TClass;
SpecialHandler:TTranslator;
PropertiesToIgnore:PStrList; // This is ignored if Handler is set
destructor Destroy; virtual;
end;

type
TClass = Pointer;

AncestorOfObject Найти похожие ветки