DCC 无法决定函数需要的参数数量

Question

我在具有此原型的单元中声明了一个函数：

function MapFunction(process: THANDLE; func: Pointer; size: Cardinal) : Pointer;

并且我用以下方式调用它：

stub := MapFunction(proc, remoteStub, 80);

当我编译时，我收到此错误，该错误停止编译：

[DCC错误] test.pas(22): E2035 实际参数不足

我摆弄了它一段时间，只是决定添加更多参数来看看它在想什么。所以我这样称呼它：

stub := MapFunction(proc, remoteStub, 80, 1, 1, 1, 1, 1);

然后 DCC 通知我：

[DCC错误] test.pas(22): E2035 实际参数不足

[DCC错误] test.pas(22): E2034实际参数过多

注释掉该行可以使单元编译成功。

我只有一个问题：什么？

我还应该提到的是，remoteStub 是一个成员变量，并且此函数调用位于该类的成员内部。并且这个特定方法是模板方法。

Answer 1

您报告该行：

stub := MapFunction(proc, remoteStub, 80, 1, 1, 1, 1, 1);

导致两个错误：

[DCC Error] test.pas(22): E2035 Not enough actual parameters
[DCC Error] test.pas(22): E2034 Too many actual parameters

唯一有意义的解释是：

• remoteStub 是一个需要参数的函数或过程 - 第一个错误。
• 所有额外的 1 参数都会导致第二个错误。

以下代码的行为与您在问题和对 RRUZ 已删除答案的评论中报告的行为完全相同：

function MapFunction(process: THANDLE; func: Pointer; size: Cardinal) : Pointer;
begin
  Result := nil;
end;

var
  remoteStub: procedure(x: Integer);

procedure remoteStub2(x: Integer);
begin
end;

procedure Test;
begin
  remoteStub := remoteStub2;

  //E2035 Not enough actual parameters
  MapFunction(0, remoteStub, 0);
  MapFunction(0, remoteStub2, 0);

  //Compiles and passes the entry point of the procedure
  MapFunction(0, @remoteStub, 0);
  MapFunction(0, @remoteStub2, 0);
end;

我想不出还有什么可以解释您报告的内容！

Answer 2

确保您没有其他具有相同名称和不同签名的函数。

下面的代码给你一个E2035没有足够的实际参数

program Project41;
{$APPTYPE CONSOLE}
uses SysUtils;

// GetFileVersion also exists in SysUtils
function GetFileVersion(const AFileName: string;extraparam:Integer): Cardinal;
begin
  beep;
end;

begin
  GetFileVersion(ParamStr(0));
end.