delphi - 如何在 DPR 范围内访问 delphi 函数

Question

我在维护旧 Delphi 程序 (D7) 时遇到问题。许多程序逻辑都在 DPR 文件中(这不是窗口程序)，其中一些单元提供诸如访问数据库之类的功能。我们需要从 DB 单元中进行一些调试，但调试功能位于 DPR 中。我们不能轻易地去掉调试功能，因为它使用了 DPR 特有的东西，比如它的主管道。将其分开就像试图将意大利面条和肉丸酱分开一样。

那么我们如何从从属使用单元中调用在 DPR 作用域中声明的函数呢？ C++ 中的::运算符相当于什么？

请不要告诉我重新设计应用程序。我很愿意，但我们没有足够的时间。另外，如果我们重新设计这只小狗，它就不会出现在 Delphi 中。

Answer 1

您可以在单元中声明与 DPR 中函数的签名相匹配的方法变量。在程序的一开始，您将方法变量设置为函数。在单元内部您调用方法变量。

示例:

(DPR)

uses
  Unit1;

function DoSomething(Par: Integer): Integer;
begin
...
end;

...
begin
  DoSomethingVar := DoSomething;
  ...
end;

(单位)

unit Unit1;

interface
...
var
  DoSomethingVar: function(Par1: Integer): Integer;
...
implementation
...
  SomeResult := DoSomethingVar(SomeParameter);
...