RTTI:我可以按姓名获取类型吗？

Question

给定一个包含类型名称的文本字符串,是否有某种方法可以获得适当的类型？

我想做这样的事情:

type
  TSomeType<T> = class
    // yadda yadda
  end;

procedure DoSomething;
var
  obj : TObject;
begin
  o := TSomeType<GetTypeByName('integer')>.Create;
  // do stuff with obj
end;

我在网上查看了几个RTTI解释,并查看了Delphi单元,看不到我在寻找什么.这可能吗？

Answer 1

不,泛型完全是编译时间.

Answer 2

您始终可以将类型注册到某种注册表(由字符串列表或字典管理)并创建工厂函数,然后返回相应的对象.不幸的是,你必须提前知道你需要什么类型.类似于Delphi函数的RegisterClass和FindClass(在classes单元中).我的想法是直接将通用模板类型放入列表中.

可能的用法示例:

RegisterCustomType('Integer',TSomeType<Integer>);
RegisterCustomType('String',TSomeType<String>);

if FindCustomType('Integer') <> nil then
  O := FindCustomType('Integer').Create;

编辑:这是一个特定的简单实现,使用Generics.Collections中的tDictionary来处理注册表存储...我将把它提取到有用的方法作为读者的简单练习.

var
  o : TObject;
begin
  TypeDict := TDictionary<String,TClass>.Create;
  TypeDict.Add('integer',TList<integer>);
  if TypeDict.ContainsKey('integer') then
    o := TypeDict.Items['integer'].Create;
  if Assigned(o) then
    ShowMessage(o.ClassName);
end;

另一个编辑:我昨晚给了这个想法,并发现了另一种可以融入这个概念的技术.接口.这是一个快速无所作为的例子,但可以很容易地扩展:

TYPE
  ITest = interface
    ['{0DD03794-6713-47A0-BBE5-58F4719F494E}']
  end;

  TIntfList<t> = class(TList<T>,ITest)
  public
    function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

procedure TForm1.Button7Click(Sender: TObject);
var
  o : TObject;
  fTestIntf : ITest;
begin
  TypeDict := TDictionary<String,TClass>.Create;
  TypeDict.Add('integer',TIntfList<integer>);
  if TypeDict.ContainsKey('integer') then
    o := TypeDict.Items['integer'].Create;
  if Assigned(o) and Supports(o,ITest,fTestIntf) then
    ShowMessage(o.ClassName);
end;

当然,您必须实现QueryInterface,_AddRef和_Release方法并扩展接口以执行更有用的操作.

Answer 3

Delphi 2010中的新RTTI单元有一种检索单元接口部分中声明的类型的方法.对于由TRttiType实例表示的任何给定类型,该TRttiType.QualifiedName属性返回一个名称,TRttiContext.FindType稍后可以使用该名称来检索该类型.限定名称是完整的单元名称(包括名称空间,如果存在),后跟".",后跟完整的类型名称(如果嵌套则包括外部类型).

因此,您可以检索Integer类型的表示形式(以a的形式TRttiType)context.FindType('System.Integer').

但是这个机制不能用于检索在编译时没有实例化的泛型类型的实例化; 运行时的实例化需要运行时代码生成.