Delphi 中的无类型/无类型参数

Question

像 TStringStream 类中没有类型的参数是什么类型：

function Read(var Buffer; Count: Longint): Longint; override;

Buffer 参数的类型是什么（它是 Pointer 类型吗？）。

Answer 1

几年前我写了一篇关于这个主题的文章：

什么是非类型化参数？

非类型化参数在几种情况下使用；您询问的 TStream.Read 方法与我写的 Move 过程最匹配。这是摘录：

procedure Move(const Source; var Dest; Count: Integer);

Move 过程从任意变量复制数据
到任何其他变量中。它需要接受来源和目的地
所有类型，这意味着它不能需要任何单一类型。程序
不会修改为 Source 传递的变量值，因此
参数的声明使用 const 而不是 var，这是
对于无类型参数更常见的修饰符。

对于 TStream.Read，源是流的内容，因此您不会将其作为参数传递，但目标是中所示的 Buffer 参数的问题。您可以为该参数传递您想要的任何变量类型，但这意味着您需要小心。确保流的内容确实是您提供的参数类型的有效值是您的工作，而不是编译器的工作。

请阅读我的文章的其余部分，了解 Delphi 使用非类型化参数的更多情况。

Answer 2

查看 Delphi 帮助中的“无类型参数”。

您可以传入任何类型，但必须在实现中对其进行强制转换。帮助表明您不能向其传递数字或无类型数字常量。所以基本上你必须知道需要什么类型，而编译器无法帮助你，所以你需要一个充分的理由来这样做。我想如果您需要该方法来处理不兼容的类型，那么它可能很有用，但是您可以为每个预期类型编写几个重载版本，我建议将其作为更好的解决方案。

Answer 3

也许令人惊讶的是，将取消引用的指针作为无类型参数传递是合法的。而且指针本身甚至不必有类型。

procedure SomeMethod(var aParameter);
  ∶

procedure CallSomeMethod(aIsInteger : Boolean);
type
  buffer    : Pointer;
  intValue  : Integer;
  realValue : Single;
begin
  if aIsInteger then
  begin
    buffer := @intValue;
  end
  else
  begin
    buffer := @realValue;
  end;
  SomeMethod(buffer^);

当然，如果 SomeMethod() 的参数是一个指针，那么可能会更容易，但这可能不受您的控制。

Answer 4

参数列表中的 var 是 通过引用调用。它可以键入，例如Listview 的OnChanging 处理程序中的AllowChange 参数：

procedure TSomeForm.LVOnChanging(Sender: TObject; ...; var AllowChange: Boolean);
begin
  if SomeProblemOccurred then
    AllowChange := False;
end;

或非键入，如您的示例中所示。