释放 TObjectList 时发生访问冲突

Question

我有以下德尔福代码：

destructor TXX_XXXX.Destroy;
var
i: Integer;
begin
  if Assigned(Allocations) then
  begin
    for i:=0 to (Allocations.Count - 1) do 
    begin
      try
      TXX_ALOC(Allocations.Items[i]).Free;
      except on Ex:Exception do
      begin
        OutputDebugString(PChar('Exception Error Message '+ Ex.Message));
      end;
      end;
    end;

        // Above code works well - no exception

        try
    FreeAndNil(Allocations); {Exception Here}
    except on E:Exception do
    begin
      OutputDebugString(PChar('Exception in xxxxxxxxx.pas'+E.Message));
    end;
    end;
  end;
  inherited;
end;

模块“Vcl50.bpl”中地址 4003AB4 处发生访问冲突。读取地址2980BFFC

我知道访问冲突通常是由于释放某些对象而导致的

1. 之前已被释放，
2. ，该对象在使用某些对象而未初始化

但是在我进行释放之前，我检查了分配已分配。如果我放弃异常处理，我的应用程序将抛出错误。 Allocations 是一个 TObjectList，如果它是一个数组 - 我会怀疑我没有为数组分配长度，但它是一个 TObjectList。

多谢！

Answer 1

TObjectList 通常负责销毁其内容。在这种情况下不要释放您的对象。这将导致释放 TObjectList 时发生访问冲突，因为它会尝试再次释放所包含的对象。

对象列表的这种行为可以在其构造函数中控制：

constructor TObjectList.Create(AOwnsObjects: Boolean);

使用此属性来指定是否希望列表拥有其内容（意味着：当项目从列表中删除时，它会负责销毁该项目）列表或列表被销毁）或不。不带参数的构造函数（您可能使用过）将其设置为 true。

您可能只需要一个类似 TList 的列表，但用于存储对象。如果是这种情况，请像这样创建列表：

Allocations:= TObjectList.Create(False);

但如果您想要自动销毁行为，则只需删除 for 循环即可。对象列表将销毁您的 TXX_ALOC 对象。

Answer 2

一般来说，当清除列表时，您希望从头到尾循环，

for i := (Allocations.Count - 1) downto 0 do begin
   Delete(Allocations.Items[i]);
end

但如果是 TObjectList ，如果列表拥有对象（默认情况下），您不应该在销毁容器之前释放它们，因为列表会为您执行此操作。在上面的代码中，如果列表拥有对象，则调用 Delete 也会释放该对象。

Answer 3

有 2 个选项供您选择...

1) 如果您希望 Delphi 在从 ObjectList 中删除对象时自动释放对象，则创建 TObjectList 并将 aOwnsObjects 设置为 true。在你的析构函数中简单的 FreeAndNil 是 ObjectList 本身。然后，这将从列表中删除所有对象并自动释放它们。由于释放 ObjectList 将自动释放该列表中包含的对象，因此您的代码可能如下所示：

destructor TXX_XXXX.Destroy;
begin
  FreeAndNil( Allocations ); //
  inherited;
end;

2) 创建 TObjectList 并将 aOwnsObjects 设置为 False，在这种情况下，您必须自己负责释放列表中的对象。您的代码可能如下所示：

destructor TXX_XXXX.Destroy;
var
  i       : Integer;
  oObject : TObject;
begin
  if Assigned(Allocations) then
  begin
    for i:= Pred( Allocations.Count ) downto 0 do
    begin
      // Get a reference to the Object
      oObject := TXX_ALOC(Allocations.Items[i]);
      // Remove the object from the object list
      Allocations.Delete( i );
      // Free the Object
      FreeAndNil( oObject );
    end;
  end;

  FreeAndNil( Allocations );
  inherited;
end;