String in gleichgroße Teile teilen

[himitsu]

nimm eine While-Schleife und statt

Delphi-Quellcode:

i := (Length(sInp) div aLimit) + 1;
if aLimit = Length(sInp) then
  dec(i);
SetLength(Result, i);

lieber

Delphi-Quellcode:

i := (Length(sInp) + aLimit - 1) div aLimit;
SetLength(Result, i);

[add]

Delphi-Quellcode:

function SplitString(S: String; Limit: Integer): TStringDynArray;
var
  i: Integer;
begin
  i := (Length(S) + Limit - 1) div Limit;
  SetLength(Result, i);
  while i > 0 do begin
    Dec(i);
    Result[i] := Copy(S, i * Limit + 1, Limit);
  end;
end;

PS: TStringDynArray