ios - 带有 Ios 64 位的 Delphi Rtti

Question

我有以下代码，是在使用 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

当然，我在编译选项中添加了“emit RTTI informations”。

Answer 1

我终于找到问题了。问题是以下代码:

  wurRecDouble = packed record
  case byte of
   0 : (Value : Double);
   1 : (Bytes: array [0..7] of Byte);
  end;

在 Ios 64 位下，RTTI 信息处于事件状态，该行

vTypes:=vPackage.GetTypes;

(参见前面的代码)将生成一个 A/V(明显为零)

如果我将 Value 的类型更改为 Int64，例如 A/V 就会消失。

此外，Delphi 理论上不会发出记录的 RTTI 信息，那么为什么 A/V 带有记录呢？