如何使用TList解决Delphi 10的错误？

procedure TForm1.button1Click(Sender: TObject);
begin
//----------We crash here----------------
  FList.Items[0] := SplitString('H:E',':');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TList<TStringDynArray>.Create;
  FList.Add(SplitString('H:E',':'));
  FList.Items[0] := SplitString('H:E',':');
end;

procedure TForm1.button1Click(Sender: TObject);
var MyArray : TStringDynArray;
begin
  MyArray := FList.Items[0];
  FList.Items[0] := SplitString('H:E',':');
  //----------Yeah! We don't crash anymore!-----------
end;

毕竟,这个bug仍然存在于64位.它没有为TStringDynArray崩溃,但它确实为其他动态数组类型.

可以在Generics.Collections中的以下代码中找到问题的根源：

procedure TListHelper.DoSetItemDynArray(const Value; AIndex: Integer);
type
  PBytes = ^TBytes;
var
  OldItem: Pointer;
begin
  OldItem := nil;
  try
    checkItemRangeInline(AIndeX);

    TBytes(OldItem) := PBytes(FItems^)[AIndex];
    PBytes(FItems^)[AIndex] := TBytes(value);

    FNotify(OldItem,cnRemoved);
    FNotify(Value,cnAdded);
  finally
    DynArrayClear(OldItem,FTypeInfo); //Bug is here.
  end;
end;

会发生什么,将错误的TypeInfo传递给DynArrayClear.在TList< TStringDynArray>的情况下,传递TypeInfo(TArray< TStringDynArray>)而不是TypeInfo(TStringDynArray).据我所知,正确的呼吁是：

DynArrayClear(OldItem,pDynArrayTypeInfo(NativeInt(FTypeInfo) + pDynArrayTypeInfo(FTypeInfo).Name).elType^);

私有程序使拦截变得复杂.我这样做是因为记录助手仍然可以访问Delphi 10中记录的私有部分.我想这对柏林的用户来说会更复杂.

function TMyHelper.GetDoSetItemDynArrayAddr: TDoSetItemDynArrayProc;
begin
  Result := Self.DoSetItemDynArray;
end;

希望Embarcadero有一天能解决这个问题……