常量数组的数据结构

type
  PVarRec = ^TVarRec
  TVarRec = record
    case Byte of
      vtInteger     :(VInteger: Integer; VType: Byte);
      vtBoolean     :(VBoolean: Boolean);
      vtChar        :(VChar: Char);
      vtExtended    :(VExtended: PExtended);
      vtString      :(VString: PShortString);
      vtPointer     :(VPointer: Pointer);
      vtPChar       :(VPChar: PChar);
      vtObject      :(VObject: TObject);
      vtClass       :(VClass: TClass);
      vtWideChar    :(VWideChar: WideChar);
      vtPWideChar   :(VPWideChar: PWideChar);
      vtAnsiString  :(VAnsiString: Pointer);
      vtVariant     :(VVariant: PVariant);
      vtInterface   :(VInterface: Pointer);
      vtWideString  :(VWideString: Pointer);
      vtInt64       :(VInt64: PInt64);
  end;