delphi – 为什么Generics.Collections.TObjectList.List不安全

发布时间：2020-12-15 09:49:32 所属栏目：大数据来源：网络整理

导读：Generics.Collections中的TList和TOjectList具有.List属性,它是一个枚举器. 例如： oList := TObjectListTItem.Create;// Add items to oListfor Item in oList.List do begin // Do something with Itemend; 这很整洁,但结果却很严重. .List只读取FList(TLi

Generics.Collections中的TList和TOjectList具有.List属性,它是一个枚举器.

例如：

oList := TObjectList<TItem>.Create;
// Add items to oList
for Item in oList.List do begin
  // Do something with Item
end;

这很整洁,但结果却很严重. .List只读取FList(TList和TObjectList上的私有声明),它只是一个arrayofT.

由于动态数组在添加超出其大小的项目时大小加倍,这意味着它具有未使用项目的空间.

如果您添加了3个TItems,则实际FList长度为4个项目,第四个(和最后一个)项目为nil.

因此,使用TObjectList的.List是不安全的,因为如果你的TObjectList没有功率为2的.Count值(例如1,2,4,8,16等),它可能会抛出访问冲突.

以下代码可能会引发访问冲突：

for Item in oList.List do begin
  Writeln(Item.ClassName);
end;

当然,安全的解决方案是使用.Count的简单迭代：

for I := 0 to oList.Count - 1 do begin
  Item := oList.Items[I];
  Writeln(Item.ClassName);
end;

这不像枚举器那么漂亮. (当然,你也可以检查Item是否为零.)

我的问题是这样的：

>为什么.List不是实际的枚举器？
> TList / TObjectList是否有实际的枚举器？

这是来自TForm的示例(其中btn1只是添加一行,而mmo1是TMemo).

procedure TForm2.btn1Click(Sender: TObject);
var
  Line: string;
begin
  Line := 'Line';
  mmo1.Lines.Add(Line);
  fList.Add(Line);
  mmo1.Lines.Add(Format('Count: %d; Actual length: %d',[fList.Count,Length(fList.List)]));
  for Line in fList.List do begin
    mmo1.Lines.Add(Format('Found: "%s"',[Line]));
  end;
end;

现在,使用string不会抛出访问冲突.但是,当我点击3次后,我得到以下内容：

Count: 3; Actual length: 4
Found: "Line"
Found: "Line"
Found: "Line"
Found: ""

解决方法

TList<T> and TOjectList<T> in Generics.Collections have a List property,which is an enumerator.

不,不是这样. List属性是动态数组.动态数组内置了对枚举的支持.

Since a dynamic array is doubled in size whenever an item is added beyond its size,it means it has space for non-used items.

那也不是真的.动态数组不会自动调整大小.必须通过调用SetLength显式调整它们的大小. TList< T> class使用对SetLength的调用来管理存储列表内容的基础动态数组的容量.

Why is List not an actual enumerator?

如果我记得的话,最近在XE3中添加了List属性.其目的是允许直接访问基础列表,这是其他方式无法实现的.

有时为了提高效率,如果要修改列表内容,可能更愿意避免复制.例如,假设您的列表包含大小为1KB的记录.如果要在不使用List属性的情况下修改每个记录中的单个布尔值,最终会将整个1KB记录复制两次.只是修改一个布尔值.

当然,获得对底层存储的访问的成本是您接触到内部实现细节. Embarcadero可以实现以更安全的方式为您提供访问权限的功能,但无论出于何种原因,他们都选择了这条路线.我想我可能已经创建了一个索引属性,它返回一个指向项目的指针.

所以,这实际上是List属性的唯一用例.除非您确实需要直接访问底层存储,否则请勿使用List.当然,如果文档不愿解释任何这一点,那就太好了,但事实就是如此.

Does TList<T> have an actual enumerator?

是的,它确实.

var
  Item: SomeType;
  MyList: TList<SomeType>;
....
for Item in MyList do
  Item.Foo();

（编辑：李大同）

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