delphi - 在delphi中测试泛型的类型

Question

我想要某种方法在delphi中编写如下所示的函数

procedure Foo<T>;
begin
    if T = String then
    begin
        //Do something
    end;

    if T = Double then
    begin
        //Do something else
    end;
end;

即:我希望能够根据泛型类型做不同的事情

我尝试过在System中使用TypeInfo，但这似乎适合对象而不是泛型类型。

我什至不确定这在帕斯卡中是否可行

Answer 1

从 XE7 开始您可以使用 GetTypeKind找到 type kind :

case GetTypeKind(T) of
tkUString:
  ....
tkFloat:
  ....
....
end;

当然，tkFloat 标识所有浮点类型，因此您也可以测试 SizeOf(T) = SizeOf(double)。

旧版本的 Delphi 没有 GetTypeKind 内在函数，您必须使用 PTypeInfo(TypeInfo(T)).Kind 代替。 GetTypeKind 的优点是编译器能够评估它并优化掉可以证明不被选择的分支。

所有这些都违背了泛型的目的，人们想知道您的问题是否有更好的解决方案。