アクセス違反TObjectListを

Question

を解放するとき、私は、次のDelphiコードがあります：モジュールのアドレス4003AB4で

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' を。アドレス2980BFFC

の読み取り、私は通常

1. 無料
2. は初期化せずに

をいくつかのオブジェクトを使用する。しかし、ここで私の前に前に解放されているいくつかのオブジェクトによって引き起こされる、アクセス違反を知っています私は割り当てが割り当てられていることを確認しました。私が例外処理を破棄すれば、私のアプリケーションは何か間違ったエラーをスローします。 配列は配列の場合はTObjectListです。配列に長さを割り当てなかったのは疑いがありますが、TObjectListです。

ありがとうございます！

Answer 1

TObjectListは、通常、その内容を破棄します。この場合、オブジェクトを解放しないでください。含まれているオブジェクトを再度解放しようとするため、TObjectListを解放すると、アクセス違反が発生します。あなたは自身その内容（手段のリストをしたい場合に指定し

使用この1：

オブジェクトリストのこの動作は、コンストラクタで制御することができる、それはアイテムを破壊するの面倒を見ますリストから削除されたとき、またはリストが破棄されたとき）。パラメータなしのコンストラクタ（おそらく使用している）は、これを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）あなたは彼らがObjectListから削除されます際にDelphiが自動的にオブジェクトを解放したい場合はtrueに設定aOwnsObjects wiht TObjectListをを作成しています。あなたのデストラクタでは、単純なFreeAndNilはObjectList自体です。これにより、リストからすべてのオブジェクトが削除され、自動的に解放されます。

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

2）あなたはの世話をする必要があります。その場合にはFalseに設定aOwnsObjects、wiht TObjectListを作成：自動的にそのリストに含まれるオブジェクトが解放されますObjectListを解放しているので、あなたのコードは、次にようになります。リスト内のオブジェクトを自由に解放します。あなたのコードは、次のようになります。

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;