Janilabo | TSAFill() [SCAR Divi]

{==============================================================================]
  Explanation: Fills TSA items with x.
[==============================================================================}
procedure TSAFill(var TSA: TStrArray; x: string);
var
  i, h: Integer;
begin
  h := High(TSA);
  for i := 0 to h do
    TSA[i] := string(x);
end;

var
  s: string;
  h, i: Integer;
  a: TStrArray;

begin
  ClearDebug;
  a := ['Test0', 'Test1', 'Test2', 'Test3', 'Test4'];
  TSAFill(a, 'Test');
  h := High(a);
  for i := 0 to h do
    s := (s + '"' +  a[i] + '" ');
  WriteLn('a: ' + s);
end.