Janilabo | TSADelete() [SCAR Divi]

{==============================================================================]
  Explanation: Deletes TSA item with index position (x). Returns TSA[x] in the end.
[==============================================================================}
function TSADelete(var TSA: TStrArray; x: Integer): string;
begin
  if ((x < (High(TSA) + 1)) and (x > -1)) then
  begin
    Result := TSA[x];
    Delete(TSA, x, 1);
  end;
end;

var
  tmp: TStrArray;
  h, i: Integer;

begin
  ClearDebug;
  tmp := ['Test1', 'Test2', 'TEST', 'Test3', 'Test4'];
  WriteLn('DELETED: "' + TSADelete(tmp, 2) + '"');
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.