我可以从字符串中获取PTypeInfo吗？

Question

这可能是一个“不”，但有什么方法可以使用Delphi的RTTI（旧学校或2010年扩展的RTTI）传入包含类型名称的字符串，特别是名称枚举类型，并让它给我该类型的PTypeInfo？我查看了RTTI.pas和TypInfo.pas，我没有看到任何可以做到这一点的函数，但我可能错过了一些东西。

我在寻找：

var
  info: PTypeInfo;
begin
  info := GetTypeInfoFromName('TComponentStyle');
end;

或类似的东西。事实是，枚举类型的名称将被传入;它不会在编译时知道。

Answer 1

以下内容应与限定名称一起使用。

合格名称为：UnitName.TypeName

type
 ETypeNotFound = class(Exception);

function GetTypeInfoFromName(aTypeName : String) : pTypeInfo;
var
 C : TRttiContext;
 T : TRttiType;
begin
 T := C.FindType(aTypeName);
 if Not Assigned(T) then
    raise ETypeNotFound.CreateFmt('Type %s is not found',[aTypeName]);

 result := T.Handle;
end;