Delphi 没有足够的 RTTI 可用于支持此操作

Question

我刚开始使用 RTTI，现在遇到了一个错误。

我正在尝试按名称调用过程并使用TValue 数组传递参数。第一个问题是 GetParameters 返回一个 0 长度 的数组(而不是 1)，我不能忽略它并尝试调用带有空数组的过程。

代码如下:

procedure TFormGenPopUpMessaggi.ExecMethod(Form : TObject; MethodName:string; const Args: array of TValue);
var
 R : TRttiContext;
 T : TRttiType;
 M : TRttiMethod;
 LParams : TArray<TRttiParameter>;
begin
  T := R.GetType(TFormAcqGestioneRichiesteAcquisto);
  for M in t.GetDeclaredMethods do
    if (m.Parent = t) and (m.Name = MethodName)then
    Begin
      LParams := m.GetParameters;
      showmessage(IntToStr(Length(LParams)));
      M.Invoke(TFormAcqGestioneRichiesteAcquisto.Create(Self), Parametri);
    End;
end;

procedure TFormGenPopUpMessaggi.EseguiMessaggio(Sender : TObject);
  var Procedura, TipoClasse : String;
      Argomenti : String;
      ArrayArgomenti : Array of TValue;
      IdMessaggio, IdElenco : Integer;
      I : Integer;
      C : TRttiContext;
      O : TObject;
begin
    [...]`
    Procedura := QGenerica.FieldByName('NOME_PROCEDURA').AsString;
    [...]
    TipoClasse := 'U' + Copy(QGenerica.FieldByName('NOME_FORM').AsString, 6, 1000) + '.' +         QGenerica.FieldByName('NOME_FORM').AsString;

    O := (C.FindType(TipoClasse) as TRttiInstanceType).MetaClassType.Create;

    if Length(ArrayArgomenti) = 0 then
      ExecMethod(O, Procedura,[])
    else
      ExecMethod(O, Procedura, ArrayArgomenti);

[...]
End;    

调用的过程是:

procedure TrovaRichiesta(Id : Integer);

在另一个类中公开声明类型为 TFormAcqGestioneRichiesteAcquisto。 代码正确找到过程名称，正确创建新的表单类，但不给我任何参数 showmessage(IntToStr(Length(LParams))) 结果为 0。

所有其他变量均已正确初始化。是否需要定义任何类型的 key 才能启用 RTTI？

Answer 1

要获取详细的 RTTI，请打开 {$TYPEINFO} 和 {$METHODINFO} 编译器指令，如所述 here .