Как использовать varargs для печати строк?

Question

Как использовать varargs для печати нескольких строк? Я пробовал это, но я не могу определить размер массива. Он просто печатает мусор.

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 -style используются не очень часто. Вы должны рассмотреть возможность использования параметра открытого массива вместо:

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.