Delphi计算模块性能优化：无需埋点测量代码执行耗时

针对你的BPL计算模块性能分析需求，以下是几种无需手动逐行埋点的可行方案：

1. 用Delphi IDE自带的采样分析器（Sampling Profiler） #

这是最省心的方案，完全不需要修改代码：

• 打开Delphi IDE，加载项目后切换到Profile模式运行（工具栏选"Profile"而非"Run"）
• 选择Sampling分析模式，启动后让程序正常执行计算逻辑
• 运行结束后，分析器会生成详细报告：包含每个过程/函数的累计执行时间、调用次数，甚至能关联到具体代码行的耗时占比
• 优点：零侵入，适合大规模模块快速定位热点代码；缺点是采样存在轻微误差，但足够满足性能优化的定位需求

2. 编译指令自动插桩 #

通过自定义编译开关，让编译器自动为所有过程/函数添加计时逻辑，无需手动修改每一行：

• 定义全局编译开关{$DEFINE PROFILE}，然后编写通用计时单元：

unit ProfileUtils;

interface

{$IFDEF PROFILE}
procedure ProfileEnter(const ProcName: string);
procedure ProfileExit(const ProcName: string);
{$ENDIF}

implementation

uses
  System.SysUtils, System.Diagnostics, System.Generics.Collections;

{$IFDEF PROFILE}
var
  ProcTimings: TDictionary<string, Int64>;
  Stopwatches: TDictionary<string, TStopwatch>;

procedure ProfileEnter(const ProcName: string);
begin
  if not Stopwatches.ContainsKey(ProcName) then
    Stopwatches.Add(ProcName, TStopwatch.StartNew)
  else
    Stopwatches[ProcName].Start;
end;

procedure ProfileExit(const ProcName: string);
begin
  if Stopwatches.ContainsKey(ProcName) then
  begin
    Stopwatches[ProcName].Stop;
    if ProcTimings.ContainsKey(ProcName) then
      ProcTimings[ProcName] := ProcTimings[ProcName] + Stopwatches[ProcName].ElapsedTicks
    else
      ProcTimings.Add(ProcName, Stopwatches[ProcName].ElapsedTicks);
  end;
end;

initialization
  ProcTimings := TDictionary<string, Int64>.Create;
  Stopwatches := TDictionary<string, TStopwatch>.Create;

finalization
  // 输出统计结果到日志或文件
  for var Pair in ProcTimings do
    Writeln(Format('%s: %d ticks', [Pair.Key, Pair.Value]));
  ProcTimings.Free;
  Stopwatches.Free;
{$ENDIF}

end.

• 利用{$IFDEF PROFILE}指令，给每个过程的入口和出口自动插入计时调用：可以写简单脚本批量遍历所有单元完成替换，或者用IDE代码模板快速处理
• 优点：精确统计累计执行时间，自定义性强；缺点是需要一次性批量处理代码，但比手动逐行埋点效率高得多

3. 专业Delphi性能分析工具 #

不少针对Delphi的本地性能分析工具，支持插桩式或采样式分析，无需修改代码就能直接Attach到运行中的BPL模块，统计每行代码的执行时间、调用次数等细节。这类工具会自动在底层注入计时逻辑，完全不需要手动埋点。

另外补充：Spring4D的拦截器确实只能拦截接口或类的虚方法，对普通过程、非虚方法以及单元级函数无效，不适合你的内部代码性能测量场景。

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