| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

AncestorOfObject

Boguslaw ©   (2005-12-31 21:13:00) 

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:00) [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;

---

Наверх