Delphi DynArraySize（）只能在649个整数元素的数组中正常工作_Delphi_Dynamic Arrays_Rtti_Delphi 10.2 Tokyo

Delphi DynArraySize（）只能在649个整数元素的数组中正常工作

delphi

Delphi DynArraySize（）只能在649个整数元素的数组中正常工作,delphi,dynamic-arrays,rtti,delphi-10.2-tokyo,Delphi,Dynamic Arrays,Rtti,Delphi 10.2 Tokyo,我在Delphi10.2Update2中遇到了一个与RTTI相关的问题，并且能够追踪到更少的代码（见下文）我有一些TPersistent-后代类TMyObj，它发布了类型为TArray的属性。当我通过GetDynArrayProp（）接收它的值并通过DynArraySize（）查询它的大小时，这只适用于649个元素的大小。在这个特殊计数之上，返回一些非常大的值请注意，我的数组是从TDictionary的Keys属性的一个实例生成的，它有自己的ToArray方法。我还试图修改TMyObj.G

我在Delphi10.2Update2中遇到了一个与RTTI相关的问题，并且能够追踪到更少的代码（见下文）

我有一些

TPersistent

-后代类

TMyObj

，它发布了类型为

TArray

的属性。当我通过

GetDynArrayProp（）

接收它的值并通过

DynArraySize（）

查询它的大小时，这只适用于649个元素的大小。在这个特殊计数之上，返回一些非常大的值

请注意，我的数组是从

TDictionary

的

Keys

属性的一个实例生成的，它有自己的

ToArray

方法。我还试图修改

TMyObj.GetDynArray

，以便它直接返回

TArray

的实例，并且工作正常。因此，我认为这可能以某种神秘的方式相互关联

我使用的
DynArraySize（）
有什么问题？动态数组的这种神秘行为背后是什么？

program RTTIPropDynArray;

{$APPTYPE CONSOLE}

uses
  System.Classes, System.Generics.Collections, System.SysUtils, System.TypInfo;

type
  TMyDict  = TDictionary<Integer,Boolean>;
  TMyArray = TArray<Integer>;

  TMyObj = class(TPersistent)
  private
    FValues: TMyDict;
    function GetDynArray: TMyArray;
  public
    constructor Create(const ACount: Integer);
    destructor Destroy; override;
  published
    property DynArray: TMyArray read GetDynArray;
  end;

{ TMyObj }

constructor TMyObj.Create(const ACount: Integer);
begin
  FValues := TMyDict.Create;
  while FValues.Count < ACount do
    FValues.AddOrSetValue(Random(MaxInt), False);
end;

destructor TMyObj.Destroy;
begin
  FreeAndNil(FValues);
  inherited;
end;

function TMyObj.GetDynArray: TMyArray;
begin
  Result := FValues.Keys.ToArray;
end;

function Test(const ACount: Integer): Boolean;
var
  LInstance: TMyObj;
  LExpectedSize: Integer;
  LDynArraySize: Integer;
begin
  LInstance := TMyObj.Create(ACount);
  try
    LExpectedSize := Length(LInstance.DynArray);
    LDynArraySize := DynArraySize(GetDynArrayProp(LInstance, 'DynArray'));
    Result := LExpectedSize = LDynArraySize;
    if not Result then
      WriteLn(Format('Expected size: %d; DynArraySize: %d', [LExpectedSize, LDynArraySize]));
  finally
    LInstance.Free;
  end;
end;

var
  LCount: Integer;
begin
  Randomize;
  LCount := 1;
  while Test(LCount) do
    Inc(LCount);
  ReadLn;
end.

程序RTTIPropDynArray；
{$APPTYPE控制台}
使用
System.Classes、System.Generics.Collections、System.SysUtils、System.TypeInfo；
类型
TMyDict=t词典；
TMyArray=焦油；
TMyObj=类（持久）
私有的
价值：TMyDict；
函数GetDynArray:TMyArray；
公众的
构造函数创建（const ACount:Integer）；
毁灭者毁灭；推翻
出版
属性DynArray:TMyArray读取GetDynArray；
结束；
{TMyObj}
构造函数TMyObj.Create（const ACount:Integer）；
开始
f值：=TMyDict.Create；
而FValues.Count

简短回答：您的代码已损坏

长答覆：

对getter的调用正在创建一个新数组（请参见