Funktion mit unendlicher Parameterzahl

[sakura]

Dann mache folgendes:

Delphi-Quellcode:

type
  TValue = record
    StrValue: String;
    IntValue: Integer;
  end;
  TValues = array of TValue;

[...]

procedure Test(Values: TValues);
var
  I: Integer;
begin
  for Low(Values) to High(Values) do
  begin
    // for each value do...
    [...]
  end;
end;

......