Текущий архив: 2006.10.22;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.22;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.067 c