textbox

IT博客 联系 聚合 管理
  103 Posts :: 7 Stories :: 22 Comments :: 0 Trackbacks
定义VMP结构体
type
PVmt   =   ^TVmt;
TVmt   =   record
  SelfPtr:     TClass;
  IntfTable:   PInterfaceTable;
  AutoTable:   PAutoTable;
  InitTable:   PInitTable;
  TypeInfo:   PTypeInfo;
  FieldTable:   PFieldTable;
  MethodTable:   PMethodTable;
  DynMethodTable:   PDynMethodTable;
  ClassName:     PShortString;
  InstanceSize:   LongInt;
  ClassParent:   ^TClass;
  SafeCallException:   Pointer;
  AfterConstruction:   Pointer;
  BeforeConstruction:   Pointer;
  Dispatch:   Pointer;
  DefaultHandler;   Pointer;
  NewInstance:   Pointer;
  FreeInstance:   Pointer;
  Destory:   Pointer;
end;

posted on 2010-08-18 17:24 零度 阅读(1321) 评论(0)  编辑 收藏 引用 所属分类: delphi
只有注册用户登录后才能发表评论。