tinterfacetable¶

type
  tinterfacetable = record
    EntryCount: SizeUInt = QWord;
    Entries: Array[0..0] of tinterfaceentry = record
private
  function GetIID : PGUID;
  function GetIIDStr : PShortString;
public
  property IID : PGUID;
  property IIDStr : PShortString;
  IIDRef : ^PGUID;
  VTable : Pointer;
case Integer of
1: (
  IOffset : SizeUInt;
);
2: (
  IOffsetAsCodePtr : CodePointer;
  IIDStrRef : ^PShortString;
  IType : tinterfaceentrytype;
);
end
;
  end;