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;
努力加载评论中...
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步