Janilabo | TSAAdd() [SCAR Divi]

{==============================================================================]
  Explanation: Adds all addTSA items to TSA. Returns the highest index in the end.
[==============================================================================}
function TSAAdd(var TSA: TStrArray; addTSA: TStrArray): Integer;
var
  h, l, i: Integer;
begin
  h := High(addTSA);
  if (h > -1) then
  begin
    l := Length(TSA);
    SetLength(TSA, (l + (h + 1)));
    for i := 0 to h do
      TSA[(i + l)] := string(addTSA[i]);
  end;
  Result := High(TSA);
end;

var
  tmp: TStrArray;
  h, i: Integer;

begin
  ClearDebug;
  TSAAdd(tmp, ['a', 'b', 'c']);
  TSAAdd(tmp, ['c', 'd', 'e', 'f']);
  TSAAdd(tmp, ['g']);
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.