TRecordData¶

type
  TRecordData = packed record
    property ExtendedFields: PExtendedFieldTable; {r}
    property ExtendedFieldCount: LongInt; {r}
    property MethodTable: PRecordMethodTable; {r}
    property ExRTTITable: PPropDataEx; {r}
    AttributeTable: PAttributeTable = ^TAttributeTable;
    case TTypeKind of
      tkRecord: (
        RecInitInfo : Pointer;
        RecSize : LongInt;
      case Boolean of
      False: (
        ManagedFldCount : LongIntdeprecated;
      );
      True: (
        TotalFieldCount : LongInt;
      );
      );
      tkInt64: (
        dummy : Int64;
      );
      tkFloat: (
        FloatType : TFloatType;
      );
  end;