如何在 Delphi 中将特定类型的变量转换为泛型 T？

Question

根据T的实际类型，我想返回一个具体的值；这是一个简化的示例（围绕某个对象的记录包装器）：

function TMyRec.TryGet<T>(const Default: T): T;
begin
  if TypeInfo(T) = TypeInfo(TMyObject) then
    Result:= FMyObject {E2010 Incompatible types}
  else Result:= FMyObject.TryGet<T>(Default);
end;

很明显，我不能将除T 之外的任何东西分配给Result，并且as T 或T() 不起作用，当T 不限于class 时...

也不可能进行仅在通用限制上有所不同的重载：

function TryGet<T: TMyObject>(const Default: T): T; overload;
{...}
Result:= FMyObject as T; {here it would work}

---

为了帮助理解下面 cmets 中的讨论，以下是我编辑之前的示例：

function TMyRec.TryGet<T>(const Default: T): T;
begin
  if TypeInfo(T) = TypeInfo(TMyObject) then Result:= FMyObject
  //else ...
  else Result:= Default;
end;

Answer 1

我相信这是实现您想要的最佳方法（至少在性能方面）。

type 
  PMyObject = ^TMyObject;

function TMyRec.TryGet<T>(const Default: T): T;
begin
  if TypeInfo(T) = TypeInfo(TMyObject) then 
    PMyObject(@Result)^ := FMyObject
  else if TypeInfo(T) = TypeInfo(Integer) then 
    PInteger(@Result)^ := 1
  //else ...
  else
    Result := Default;
end;

Answer 2

我发现的唯一方法是使用System.Rtti.TValue（错误类型除外）：

Result:= TValue.From(FMyObject).AsType<T>

或更短 ;-) 具有自动类型（如果类型错误，则返回 false；您可以在这里忽略它，因为您已经检查了 TypeInfo）：

TValue.From(FMyObject).TryAsType(Result)

建议：重新思考你的概念；有concerns 表示泛型可能不是一个好的解决方案，但如果不了解更多背景信息，我们就无法判断。

Answer 3

我正在使用 Delphi XE5。

将 yoru 示例更改为：

function TryGet<T: class>(const Default: T): T; overload;
{...}
Result:= FMyObject as T; {here it will work}

更改为 TMyObject 到 class。当你不是“class”它时，你会得到编译器错误 E2089。