Delphi 11 如何检测TDataModule是否存在并动态调用其指定函数？

方案1：使用RTTI实现动态调用（最通用，支持任意参数/返回值） #

Delphi 11自带完善的RTTI（运行时类型信息）能力，可以直接实现你的需求，默认项目配置不需要额外改编译选项，直接用即可。

注意：如果你的TDataModule是全局自动创建的，不要用当前窗体的FindComponent查找，直接遍历Screen.DataModules列表匹配组件名更准确，不会受Owner层级限制。

首先在单元引用区添加RTTI相关单元：

uses
  System.RTTI, Vcl.Forms; 
  // 如果是FMX项目，把Vcl.Forms替换为FMX.Forms

然后写通用调用函数：

procedure CallDataModuleFuncIfExist(const DMName, FuncName: string; const Param: string);
var
  ctx: TRttiContext;
  dmType: TRttiType;
  method: TRttiMethod;
  i: Integer;
  targetDM: TDataModule;
begin
  targetDM := nil;
  // 第一步：查找对应名称的DataModule，不存在直接退出
  for i := 0 to Screen.DataModuleCount - 1 do
  begin
    if SameText(Screen.DataModules[i].Name, DMName) then
    begin
      targetDM := Screen.DataModules[i];
      Break;
    end;
  end;
  if targetDM = nil then Exit;

  // 第二步：用RTTI查找指定方法，存在就调用
  ctx := TRttiContext.Create;
  try
    dmType := ctx.GetType(targetDM.ClassType);
    method := dmType.GetMethod(FuncName);
    if Assigned(method) then
    begin
      // 单参数调用示例，多参数可扩展TValue数组
      method.Invoke(targetDM, [Param]);
    end;
  finally
    ctx.Free;
  end;
end;

实际调用时直接写一行代码即可：

CallDataModuleFuncIfExist('myDataModule', 'myfunction', '要传入的参数');

如果对应DataModule不存在、或者指定方法不存在，都会自动跳过不会报错，完全符合你要的逻辑效果。

方案2：简化版（仅适用于固定参数场景） #

如果你要调用的方法已经提前在自定义DataModule中声明为dynamic动态方法，也可以用Delphi的Dispatch消息机制实现，但是灵活性远不如RTTI方案，仅适合参数规则固定的场景，一般优先用方案1即可。

补充说明 #

• 如果方法有返回值，直接接收method.Invoke返回的TValue值转换即可，比如返回字符串的写法：var Res: string := method.Invoke(targetDM, [Param]).AsString;
• 如果需要传多个参数，把Invoke的参数数组扩展为[参数1, 参数2, 参数3]即可，RTTI会自动匹配参数数量和类型。

内容的提问来源于stack exchange，提问作者delphirules