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

Question

我有一个用这个原型在一个单元中声明的函数：

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

我用这个来称呼它：

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

当我编译时，我得到这个停止编译的错误：

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

我摆弄了一会儿，然后决定添加更多参数来看看它在想什么。所以我用这个来称呼它：

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

然后 DCC 通知我：

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

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

注释掉该行允许单元成功编译。

我只有一个问题：什么？

我还应该提到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 参数都会导致第二个错误。

以下代码的行为与您在问题和 cmets 中报告给 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 Not enough actual parameters

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.