Pascal 的任何方言是否允许可变数量的参数？

Question

这是老程序员的问题。

几年前，我遇到了 Pascal 的一种方言，它通过某种扩展允许可变数量的参数。

有谁知道当前的 Pascal 方言允许可变数量的参数？

鉴于 Pascal 不再像以前那样流行，如果答案是否定的，我不会感到惊讶。

顺便说一句，说可变数量的参数比参数更正确，不是吗？

Answer 1

不。答案是基于我使用过的 Pascal 方言；其他人可能会有所不同。

原因是 Pascal 按顺序将参数推送到堆栈帧上，因此所有参数都是通过距堆栈指针的固定偏移量来访问的。相比之下，C 以相反的顺序推送参数，因此定义的参数位于固定偏移处，并且您可以通过指针算术访问“额外”参数。我将尝试一些 ASCII 艺术：

        Pascal                  C

                                ---------------------
                                |     extra arg     |
        ---------------------   ---------------------
        |     1st param     |   |     3rd param     |
        ---------------------   ---------------------
        |     2nd param     |   |     2nd param     |
        ---------------------   ---------------------
SP ->   |     3rd param     |   |     1st param     |
        ---------------------   ---------------------

至于参数与参数：据我了解，函数（方法）定义其参数，调用者传递参数。我相信这个定义来自 Fortran 手册，所以这应该能让你知道我的年龄:-)

Answer 2

您可以在delphi中使用可选参数来获得相同的效果：

procedure Proc(const A: Integer; const B: Integer = 15);

Proc(10);  // B = 15
Proc(20,30);

或者重载方法：

procedure Proc(const A: Integer); overload;
procedure Proc(const A,B: Integer); overload;

Proc(10);     // Variant 1
Proc(20,30);  // Variant 2

或者您可以使用变量数组作为参数：

procedure Message(const AMessage: string; const AArgs: array of const);

Message('Hello %s', [Name]);
Message('%s %s', [Greeting, Name]);

Answer 3

GNU-Pascal（基于 gcc）afaik 将 1:1 映射到 C 支持。使用类似

Delphi/Free Pascal 语法的 function Something(arg:pchar;...) 具有“const 数组”支持，这是一个类型安全版本，以及用于 C 接口（D6 或 D7+）的 varargs 指令

Answer 4

您可能正在考虑一个可用于 Turbo Pascal 的库，其中他们有这样的 hack。我的语法对于对象及其下降有点生疏。

type
  TValue = object;

  TInteger = object(TValue)
    Value : Integer;
  end

  TString = object(TValue)
    Value : String;
  end

  TParam = record
    Value : TValue;
    Param : TParam;
  end;

  TValue = object;

{ Definition of Function }
function Test (Arg : TParam);

{ Usage }
var
  I : TInteger;
  S : TString;

Test (TParam (I, TParam (S, nil));

您可以根据需要链接任意数量的参数。最后一个必须以 nil 结束。

Answer 5

是的！

使用 params 关键字：

procedure write(params args: array of Object);
begin
  {...}
end;