filter2

//procedure _account.filterEmptyArray(var arr: T2DStringArray); overload;
procedure ATSAFilter(var arr: T2DStringArray);
var
  h, i, l, j, c, t: Integer;
begin
  t := 0;
  h := High(arr);
  for i := 0 to h do
  begin
    c := 0;
    l := High(arr[i]);
    if (l > -1) then
    begin
      SetLength(arr[t], (l + 1));
      for j := 0 to l do
        if ((arr[i][j] <> '') and (arr[i][j] <> ' ')) then
        begin
          arr[t][c] := arr[i][j];
          c := (c + 1);
        end;
      if (c > 0) then
      begin
        SetLength(arr[t], c);
        t := (t + 1);
      end;
    end;
  end;
  SetLength(arr, t);
end;

var
  ATSA: T2DStringArray;

begin
  SetLength(ATSA, 5);
  ATSA[0] := ['Test1', '', 'Test2', ' ', '', 'Test3', ' '];
  ATSA[1] := [' ', ''];
  ATSA[2] := [' ', 'Test4', '', '', 'Test5', 'Test6', ' ', ' ', 'Test7'];
  ATSA[3] := [];
  ATSA[4] := ['', 'Test8', ' ', 'Test9', ''];
  ATSAFilter(ATSA);
  WriteLn(ToStr(ATSA));
end.