如何使用可變參數打印字符串？

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.