Janilabo | TSAFillEx() [SCAR Divi]

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

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

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