通用锁定池，将通用添加到非通用 tlist

Question

我尝试了一个通用类，第二次尝试时我尝试制作一个通用锁定池。我差一点就可以工作了 我偶然发现我想将通用类型类放入从 tthreadlist 获取的锁定 tlist 中。

主要问题是：

• 有人知道这个问题的解决方案吗？ （请参阅源代码中的“问题点”）

提示，小问题：

• 我是否需要一个额外的约束来表示引用？ （我尝试添加对已经存在的类和构造函数的引用）
• 是否知道所有“特殊”通用约束（类、构造函数）的良好概述页面。手册上找不到太多内容。
• 该公司处于 D2009 年，但我有一个用于迁移准备目的的单一许可证 DXE。

这个池使用的对象是tobject，更糟糕的是，其中一些对象有一些必须内联的关键方法。 （它是一个图像处理应用程序，这也是为什么我不太关心相对简单的锁。粒度很粗糙）。我提到这一点，因为它可能会使基于接口的解决方案变得困难。

type
     TLockedPool<T:class,constructor>   =   class
                                  private
                                    lst : tthreadlist;
                                  public
                                    type sometype =t;  // part of workarounds.
                                    destructor  destroy;
                                    constructor create;
                                    function    getitem:T;
                                    procedure   putitem(var b:T);
                                   end;

 constructor TLockedPool<T>.create;
 begin
  lst:=TThreadlist.Create;
 end;

destructor TLockedPool<T>.destroy;
var i : integer;
    v: tlist;
begin
  v:=lst.locklist;
  for i:=0 to v.count-1 do
    Tobject(v[i]).Free;
  lst.unlocklist;
  v.clear;
  freeandnil(lst);
 inherited;
end;

function TLockedPool<T>.getitem: T;
var cnt:integer;
   v : tlist;
begin
  v:=lst.LockList;
  cnt:=v.Count;
  if cnt>0 then
    begin
      result:=tobject(v[cnt-1]);
      v.delete(cnt-1);
    end
  else
    begin
     result:=T.create;
    end;
  lst.UnlockList;
end;

procedure TLockedPool<T>.putitem(var b: T);
var  v : Tlist;
 x : sometype;
begin
if assigned(b) then // some older parts of the framework are dirty and try to put in NILs.
    begin
      v:=lst.LockList;
      x:=b;
      v.Add(pointer(sometype(x)));  // <--- the problemspot
      lst.unlocklist;
    end;
 b:=nil;
end;

Answer 1

使用 v.Add(TObject(x)) 或者，如果你必须的话（它可能在 2009 年不起作用，我很难检查），v.Add(PPointer(@x)^ ）。