如何使用可变参数打印字符串？

Question

如何使用可变参数打印出多个字符串？我试过这个，但我不能确定数组的大小。它只是打印垃圾。

program Project1; 

{$APPTYPE CONSOLE} 
{$POINTERMATH ON} 

function _Print(const S: String): string; cdecl; 
var 
    Args: Array[0..100] of Pointer absolute S; 
    I: Integer; 
begin 
    I := 0; 
    while Args[I] <> nil do 
    begin 
    WriteLn(PString(@Args[I])^); 
    Inc(I); 
    end; 
end; 

const Print: function(const S: String): string; cdecl varargs = _Print; 

var 
    A, B: String; 
begin 
    A := 'ABC'; 
    B := 'CDE'; 
    Print(a, b, 'asdasd', 'fasd', ' ') 
end. 

Answer 1

一个varargs功能没有自动化的方式来确定被传递的参数数目，因为只有在调用方知道多少个参数，它被调用堆栈上的投入。该函数必须手动确定的参数，或者通过：

1. 要求调用者传递的参数的实际数量为固定参数：

   function _Print(NumStrings: Integer; const Strings: string): string; cdecl; 
   var 
       Args: Array[0..100] of Pointer absolute Strings; 
       I: Integer; 
   begin 
       for I := 0 to NumStrings-1 do 
       begin 
       WriteLn(PString(@Strings[I])^); 
       end; 
   end; 
   
   const 
       Print: function(NumStrings: Integer; const Strings: string): string; cdecl varargs = _Print; 
   
   var 
       A, B: String; 
   begin 
       A := 'ABC'; 
       B := 'CDE'; 
       Print(5, a, b, 'asdasd', 'fasd', ' '); 
   end. 
   

2. 把一个岗哨值在的端部该函数可以查找的参数列表。你的功能已经被编码为这个（它正在寻找nil指针），所以只传递一个：

   Print(a, b, 'asdasd', 'fasd', ' ', nil); 
   

话虽这么说，这两种方法是受调用者的错误，因此潜在的危险，如果滥用，这就是为什么varargs型功能不经常使用。你应该考虑使用开放数组参数，而不是：

program Project1; 

{$APPTYPE CONSOLE} 
{$POINTERMATH ON} 

function _Print(const Args: array of string): string; 
var 
    I: Integer; 
begin 
    for I := Low(Args) to High(Args) do 
    begin 
    WriteLn(Args[I]); 
    end; 
end; 

const 
    Print: function(const Args: array of string): string = _Print; 

var 
    A, B: String; 
begin 
    A := 'ABC'; 
    B := 'CDE'; 
    Print([a, b, 'asdasd', 'fasd', ' ']); 
end.