[英]Testing the type of a generic in delphi
我想用一些方法在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
,但这似乎适合于对象而不是泛型类型。
我甚至不确定帕斯卡是否可行
从XE7开始,您可以使用GetTypeKind
查找类型类型 :
case GetTypeKind(T) of
tkUString:
....
tkFloat:
....
....
end;
当然tkFloat
标识所有浮点类型,因此您也可以测试SizeOf(T) = SizeOf(double)
。
较旧版本的Delphi没有GetTypeKind
内在函数,您必须使用PTypeInfo(TypeInfo(T)).Kind
。 GetTypeKind
的优点是编译器能够对其进行评估并优化掉可以证明不被选中的分支。
所有这些都违背了泛型的目的,人们想知道你的问题是否有更好的解决方案。
TypeInfo
应该工作:
type
TTest = class
class procedure Foo<T>;
end;
class procedure TTest.Foo<T>;
begin
if TypeInfo(T) = TypeInfo(string) then
Writeln('string')
else if TypeInfo(T) = TypeInfo(Double) then
Writeln('Double')
else
Writeln(PTypeInfo(TypeInfo(T))^.Name);
end;
procedure Main;
begin
TTest.Foo<string>;
TTest.Foo<Double>;
TTest.Foo<Single>;
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.