Delphi：线程和泛型

Question

我只是想将泛型类型传递给 TThread 的执行方法。我想不通...

procedure MyThread.Execute;
begin
  Obj := TDWResponseType.FromJsonString<T>(Response);
end;

我应该使用 threadvar，如何转换它？

Answer 1

当您调用TDWResponseType.FromJsonString<T> 时，泛型类型T 必须明确定义或必须在外部上下文中作为T 可用。外部上下文中没有可用的T，这样的代码将无法编译。

在您的特定情况下，MyThread 类必须是泛型类或 Execute 方法必须是泛型方法。

假设MyThread类是TThread的后代，那么修改Execute方法是不可能的。

你有两个选择：

• 声明MyThread<T> 而不是MyThread
• 使用TDWResponseType.FromJsonString<TSomeClass>中的特定类

Answer 2

谢谢大家：

procedure TMyThread<T>.Execute;  // with: TMyThread<T: class, constructor>=class(TThread)
begin
  TJson.JsonToObject<T>(Response);
end;