Question

我想创建一个表单，将其类名称作为字符串which has been asked about before，但不是调用GetClass，而是想使用Delphi的新RTTI功能。

使用此代码，我有一个TRttiType，但我不知道如何实例化它。

var
  f:TFormBase;
  ctx:TRttiContext;
  lType:TRttiType;
begin
  ctx := TRttiContext.Create;
  for lType in ctx.GetTypes do
  begin
    if lType.Name = 'TFormFormulirPendaftaran' then
    begin
      //how to instantiate lType here?
      Break;
    end;
  end;
end;

我也试过lType.NewInstance而没有运气。

Answer 1

您必须将TRttiType强制转换为TRttiInstanceType类，然后使用GetMethod函数调用构造函数。

试试这个样本

var
  ctx:TRttiContext;
  lType:TRttiType;
  t : TRttiInstanceType;
  f : TValue;
begin
  ctx := TRttiContext.Create;
  lType:= ctx.FindType('UnitName.TFormFormulirPendaftaran');
  if lType<>nil then
  begin
    t:=lType.AsInstance;
    f:= t.GetMethod('Create').Invoke(t.MetaclassType,[nil]);
    t.GetMethod('Show').Invoke(f,[]);
  end;
end;

Answer 2

您应该使用TRttiContext.FindType()方法，而不是通过TRttiContext.GetTypes()列表手动循环，例如：

lType := ctx.FindType('ScopeName.UnitName.TFormFormulirPendaftaran');
if lType <> nil then
begin
  ...
end;

但无论如何，一旦找到所需类类型的TRttiType，就可以像这样实例化它：

type
  TFormBaseClass = class of TFormBase;

f := TFormBaseClass(GetTypeData(lType.Handle)^.ClassType).Create(TheDesiredOwnerHere);

或者，如果TFormBase来自TForm：

f := TFormClass(GetTypeData(lType.Handle)^.ClassType).Create(TheDesiredOwnerHere);

或者，如果TFormBase来自TCustomForm：

f := TCustomFormClass(GetTypeData(lType.Handle)^.ClassType).Create(TheDesiredOwnerHere);

更新：或者，就像@RRUZ显示的那样。这更加面向TRttiType，并且不依赖于使用旧TypInfo单元中的函数。

如何从TRttiType实例化一个类？

2 个答案: