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