var
List: TObjectList<TNewObject>;
Obj: TNewObject;
begin
Obj := TNewObject.Create('Three');
List := TObjectList<TNewObject>.Create();
List.Add(TNewObject.Create('One'));
List.Add(Obj);
Obj.free; //手動釋放
List.Pack(function(const L, R: TNewObject): Boolean begin result:= L = nil; end) //如何判斷L是否釋放
List.Free
readln;
end.
代碼如上。
本來TObjectList提供洗掉其中的元素后，自動釋放被洗掉的元素。
但是這個元素一旦在外部被洗掉，那么List.Free的時候，就會報錯。
因此，需要對List進行清理，即Pack，清除為空的元素。
于是就需要在Pack中，定義出什么樣的元素是空元素，涉及到對L的判斷。
if L = nil then ...
if Not Boolean(L) then ...
if Assigned(L) then ...
這三種辦法，都無法判斷Obj被Free掉了。。。
求高人指點！
uj5u.com熱心網友回復：
可以List.OwnsObjects := false;uj5u.com熱心網友回復：
假如一定要用List.OwnsObjects := True; 這種，該怎么判斷其中的Obj是不是被Free掉了？
uj5u.com熱心網友回復：
可以為TNewObject型別寫一個helper，替換free方法，在里面檢查List。不過從設計角度來說。這是一種非常糟糕的設計，強行關聯外部物件，增加了耦合度。
uj5u.com熱心網友回復：
你說的這種辦法，我也試過，不過這樣就有一個沒用的helper存在，它的作用僅僅是用來判斷obj是否存在。另外，你說的從設計的角度上來說，這種設計其實很常見，比方說用3個ObjectList存Obj，一個list存在職人員，一個存離職人員，最后一個存所有人員，這里面就一定存在一個obj被多個List參考，當其中一個List洗掉某一個Obj后，其它List.free的時候，一定會出問題。
uj5u.com熱心網友回復：
TObjectList物件有OwnsObjects屬性。當設定為True，TObjectList物件將銷毀任何從串列中洗掉的物件。uj5u.com熱心網友回復：
既然你的需求是既可以自行釋放物件，也可以讓它的所有者（比如list）釋放，也只能用helper替換Free方法來處理，我的意思是用helper來處理釋放物件的同步不是好的設計，當然你這種需求本身就不是好的設計，如果是不支持class helpers功能的語言，象C++，這種需求就無法實作，只能通過合理的設計來解決，比如規定要么手動釋放物件，要么由所有者負責釋放，不能混合。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/56581.html
標籤：語言基礎/算法/系統設計