Delphi设计简易对象垃圾回收框架

3 简易对象垃圾回收框架（untGarbagCollector）

　　3.1 概述

　　简易的垃圾回收非常简单：

　　 使用TThreadList支持线程并发访问，并保存待回收的对象指针；

　　 提供Put方法保存待回收对象；

　　 提供Recycle方法进行真正的回收（因为所有对象均自TObject派生而来）。

　　3.2 实现代码

unit untGarbagCollector; interface uses Classes; type TGarbagCollector = Class(TObject) private FList: TThreadList; public constructor Create; destructor Destroy; override; procedure Put(const AObject: TObject); procedure Recycle(const MaxCount: Integer); end; function GarbagCollector: TGarbagCollector; implementation var 　_GarbagCollector: TGarbagCollector; 　function GarbagCollector: TGarbagCollector; begin 　if not Assigned(_GarbagCollector) then 　　_GarbagCollector := TGarbagCollector.Create; 　　result := _GarbagCollector; end; { TGarbagCollect } constructor TGarbagCollector.Create; begin FList := TThreadList.Create; end; destructor TGarbagCollector.Destroy; begin try Recycle(FList.LockList.Count); finally FList.UnlockList; end; FList.Free; end; procedure TGarbagCollector.Put(const AObject: TObject); begin try FList.LockList.Add(AObject); finally FList.UnlockList; end; end; procedure TGarbagCollector.Recycle(const MaxCount: Integer); var I: Integer; AList: TList; begin AList := FList.LockList; try I := 0; while (AList.Count > 0) and (I < MaxCount) do begin TObject(AList.Last).Free; AList.Delete(AList.Count - 1); Inc(I); end; finally FList.UnlockList; end; end; initialization finalization if Assigned(_GarbagCollector) then _GarbagCollector.Free; end.

　　3.3 使用举例

　　引用untGarbagCollector单元后，可以直接使用GarbagCollector进行对象的销毁和回收。

　　 销毁

AObject := TObject.Create; GarbagCollector.Put(AObject);

　　回收

　　可以在定时器、线程以及其他场合调用Recycle方法。

　　MaxCount是用于控制每次销毁个数的参数，主要是怕一次性销毁太多占用过多的cpu。

　　（突然发现还可以扩展为限制时间进行销毁，比如每次销毁耗时不超过的n毫秒）。

　　3.4 使用场合

　　在本案例中，为了防止对象过早销毁引起访问冲突，而引入了垃圾回收技术。

　　在其它场合，比如为了提高某些程序的主观性能，也可以引入该技术。比如完成某些特定任务的程序，在处理过程中会产生临时的对象，而销毁这些对象又比较耗时。因此，为了尽早地结束任务，可以把这些临时对象保存至垃圾池中。待作业（任务）完成，并且等一段时间后cpu比较空闲时，再把临时对象真正销毁。此做法的真谛就是以空间换取时间——与某些系统预创建对象，并重复利用对象以提高性能的做法相同。

查看本文来源