8

クラス名を文字列として与えられたフォームを作成したいのですが、これは以前に尋ねられましたが、 を呼び出す代わりに、GetClassDelphi の新しい 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運が悪かったので試してみました。

4

2 に答える 2

11

をクラスにキャストしてTRttiTypeから、関数を使用してコンストラクターを呼び出す必要があります。TRttiInstanceTypeGetMethod

このサンプルを試す

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;
于 2013-02-07T03:00:46.197 に答える
4

リスト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

于 2013-02-07T03:02:07.403 に答える