delphi – 如何从TRttiType实例化一个类？

发布时间：2020-12-15 04:01:50 所属栏目：大数据来源：网络整理

导读：我想创建一个表格,它的类名称为字符串,which has been asked about before,但我不想调用GetClass,而是想使用Delphi的新RTTI功能. 使用此代码,我有一个TRttiType,但我不知道如何实例化它. var f:TFormBase; ctx:TRttiContext; lType:TRttiType;begin ctx := T

我想创建一个表格,它的类名称为字符串,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没有运气.

解决方法

必须将 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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!