具有动态数组的 DELPHI 类与 SetLength() 存在问题

Question

我需要创建一个包含 记录对象数组的 类，但尝试使用 SetLength 会引发访问冲突错误。

考虑以下带有水果的树对象示例。

type
TFruit = record
  color: string;
  weight: double;
end;

type
  TObjectTree = class

  Public
  Fruits: array of TFruit;

  constructor Create;
  procedure AddFruit;
end;

在实现中，当尝试调整 Fruit 对象数组的大小或初始化为 nil 时会产生问题。

constructor TObjectTree.Create;
begin
    inherited Create;
    Fruits:=nil;              //Raises an error
end;


procedure TObjectTree.AddFruit(FruitColor: string; FruitWeight: integer);
begin
    SetLength(Fruits, Length(Fruits)+1);  //Raises an error (when I comment Fruits:=nil; in the constructor)

    Fruits[Length(Fruits)].color:=FruitColor;      
    Fruits[Length(Fruits)].weight:=FruitWeight;
end;

如何在类中使用动态数组？

Answer 1

替换

Fruits[Length(Fruits)].color:=FruitColor;      
Fruits[Length(Fruits)].weight:=FruitWeight;

与

Fruits[High(Fruits)].color:=FruitColor;
Fruits[High(Fruits)].weight:=FruitWeight;

然后就可以了。

Answer 2

告诉我你忽略了创建TObjectTree 的实例。你已经声明了一个TObjectTree 变量，但是你要么没有调用TObjectTree.Create，要么你直接在你声明的变量上调用了它，而不是为该变量分配一个新值：

var
  Tree: TObjectTree;
begin
  // This is wrong.
  Tree.Create;

  // This is right.
  Tree := TObjectTree.Create;

如果没有正确实例化TObjectTree，就没有有效的内存来支持您尝试使用的Fruits 字段，因此为其赋值会出错。

Answer 3

作为对 iamjoosy 和 Rob Kennedy 答案的补充，我将这样编写代码：

procedure TObjectTree.AddFruit(FruitColor: string; FruitWeight: integer);
var
  NewCount: Integer;
begin
  NewCount := Length(Fruits)+1;
  SetLength(Fruits, NewCount);
  Fruits[NewCount-1].color := FruitColor;      
  Fruits[NewCount-1].weight := FruitWeight;
end;

在我看来，更清楚的是，只调用一次Length()。

您不需要在构造函数中分配Fruits := nil，因为这是自动发生的。实例化对象时，所有字段都初始化为零。也就是说，Fruits := nil 不应引发错误。如果是这样，则可能是由于越界数组访问导致内存损坏。

还有一点需要说明的是，启用范围检查会导致一个可以解释问题的信息错误。这比依赖访问冲突更有帮助。我不建议高度检查范围。

最后，SetLength(..., Length(...)+1) 模式通常会导致非常低效的内存使用，并可能导致大型列表的性能问题。如果您有 Delphi 2009+，我建议您改用 TList<TFruit>。