arguments - 传递参数以在过程中写入

Question

如何将参数从我的过程传递给 write 的调用里面叫？

很像这样的事情:

procedure smth (args: alltypes);
begin
    write(args);
end;

Answer 1

如果您想在 Write 中使用带有任何数量/类型的参数的函数方式，如 smth(3, 'aaa', 5.6) - 据我所知，这是不可能的。但是您可以使用 array of ... type for argument 将任意数量的参数传递给过程。

下面是一个例子:

program wrt;

{$mode objfpc}{$H+}

uses
    sysutils, variants;

procedure test1(args: array of Variant);
var
    i: Integer;
begin
    for i := Low(args) to High(args) do
        Write(args[i]);
    Writeln;
end;

procedure test2(fmt: string; args: array of const);
begin
    Writeln(Format(fmt, args));
end;

begin
    test1([1, 'aaa', 3.5, False]);
    test2('%d %s %g, %s', [1, 'aaa', 3.5, BoolToStr(False, True)]);
end.