如何将“nil”常量传递给无类型参数?

时间:2011-08-29 11:14:54

标签: delphi untyped-variables

是否可以将nil作为未声明的常量传递给某个函数的无类型参数? 我有这样的函数,我想将一些常量传递给Data参数以满足编译器。在内部,我是通过Size参数决定的。我知道我可以使用Pointer而不是无类型参数,但对我的情况来说它更舒服。

现在我得到了E2250 There is no overloaded version of 'RS232_SendCommand' that can be called with these arguments

function RS232_SendCommand(const Command: Integer): Boolean; overload;
begin
  // is it possible to pass here an undeclared constant like nil in this example?
  Result := RS232_SendCommand(Command, nil, 0);
end;

function RS232_SendCommand(const Command: Integer; const Data; const Size: Integer): Boolean; overload;
begin
  ...
end;

这样可行,但如果我可以保留变量声明,我会很高兴。

function RS232_SendCommand(const Command: Integer): Boolean; overload;
var
  Nothing: Pointer;
begin
  Result := RS232_SendCommand(Command, Nothing, 0);
end;

解决方案是使用这样的东西。

function RS232_SendCommand(const Command: Integer): Boolean; overload;
begin
  // as the best way looks for me from the accepted answer to use this
  Result := RS232_SendCommand(Command, nil^, 0);

  // or it also possible to pass an empty string constant to the untyped parameter
  // without declaring any variable
  Result := RS232_SendCommand(Command, '', 0);
end;

我这样做是因为我的一些命令在命令传输后发送了数据。

感谢您的帮助

2 个答案:

答案 0 :(得分:12)

易:

RS232_SendCommand(Command, nil^, 0);

您只需要确保不从RS232_SendCommand内部访问Data参数,但可能是0大小参数的用途。

在我看来,这是最好的解决方案,因为它非常明确地表明您正在传递无法访问的内容。

答案 1 :(得分:2)

不,你不能。 不是我知道的

  

无类型参数

     

声明时可以省略类型规范    var const out 参数。 (必须键入值参数。)对于   例如:

     
    

程序TakeAnything(const C);

  
     

声明一个名为的过程   TakeAnything接受任何类型的参数。当你打电话的时候   例程,你不能传递数字或无类型的数字常量。

     
    

来自:Parameters (Delphi)

  

所以,也许添加另一个重载版本,如果没有const arg,你可以在Size = 0时调用。