Delphi XE8在TList中的错误,需要解决方法

发布时间：2020-12-15 05:24:48 所属栏目：大数据来源：网络整理

导读：升级到XE8后，我们的一些项目开始中断数据。看起来像一个在TList实现中的错误。 program XE8Bug1;{$APPTYPE CONSOLE}uses System.SysUtils,Generics.Collections;type TRecord = record A: Integer; B: Int64; end;var FRecord: TRecord; FList: TListTRecor

升级到XE8后，我们的一些项目开始中断数据。看起来像一个在TList实现中的错误。

program XE8Bug1;
{$APPTYPE CONSOLE}

uses
  System.SysUtils,Generics.Collections;

type
  TRecord = record
    A: Integer;
    B: Int64;
  end;

var
  FRecord: TRecord;
  FList: TList<TRecord>;

begin
  FList := TList<TRecord>.Create;
  FRecord.A := 1;
  FList.Insert(0,FRecord);
  FRecord.A := 3;
  FList.Insert(1,FRecord);
  FRecord.A := 2;
  FList.Insert(1,FRecord);
  Writeln(IntToStr(FList[0].A) + IntToStr(FList[1].A) + IntToStr(FList[2].A));

end.

此代码在XE7和之前(应该是)打印“123”，但在XE8中打印“120”。
也许有人知道一个quickfix这个？

更新：非官方修订是here

解决方法

我发现现在TList< T> .Insert方法调用TListHelper.InternalInsertX取决于数据大小，在我的情况下：

procedure TListHelper.InternalInsertN(AIndex: Integer; const Value);
var
  ElemSize: Integer;
begin
  CheckInsertRange(AIndex);

  InternalGrowCheck(FCount + 1);
  ElemSize := ElSize;
  if AIndex <> FCount then
    Move(PByte(FItems^)[AIndex * ElemSize],PByte(FItems^)[(AIndex * ElemSize) + 1],(FCount - AIndex) * ElemSize);
  Move(Value,PByte(FItems^)[AIndex * ElemSize],ElemSize);
  Inc(FCount);
  FNotify(Value,cnAdded);
end;

我看到第一个Move调用中的问题。目标应为：

PByte(FItems^)[(AIndex + 1) * ElemSize]

不

PByte(FItems^)[(AIndex * ElemSize) + 1]

Aaargh！

最后，我在我的项目中使用了来自Delphi XE7的System.Generics.Defaults.pas和System.Generics.Collections.pas单元，现在所有的工作都如预期的那样。

更新：如我所见，RTL不受影响，因为它不使用TList&T。为SizeOf&T插入T。 8(或者我可能错过了什么？)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!