我有以下代码,在 Delphi Berlin (10.1) 的新项目中创建:
Procedure Test;
var
vRttiContext : TRttiContext;
vPackages : TArray<TRttiPackage>;
vTypes : Tarray<TRttiType>;
vType : TRttiType;
vPackage : TRttiPackage;
begin
vRttiContext:=TRttiContext.Create;
vPackages:=vRttiContext.GetPackages;
if (vPackages<>nil) then
for vPackage in vPackages do
begin
vTypes:=vPackage.GetTypes;
case vtype.TypeKind of
tkClass : ; //DoSomething
end;
end;
end;
此代码在 Win32 / Win64、Ios32 位下完美运行,但不适用于 IOS64。
使用 Ios64 位,我在该行中遇到访问冲突:
vType:=vPackage.GetTypes
当然,我在编译选项中添加了“发出 RTTI 信息”。