String in gleichgroße Teile teilen

[DarkItachi]

Warum denke ich nicht an so etwas leichtem??
Diesen Denkfehler werde ich ab sofort hassen

Danke Aphton

Edit:
Die fertige Funktion für jemanden, der sie evt. braucht..:

Delphi-Quellcode:

type
  TStrArray= array of string;

function SplitintoLetterParts(sInp: String; aLimit: Integer): TStrArray;
var
  i, j, b: Integer;
begin
   b:= 1;
   j:= 0;
   i:= (Length(sInp) div aLimit) + 1;
   if aLimit= Length(sInp) then
     dec(i);
   SetLength(Result, i);
 Repeat
   Result[j]:= Copy(sInp, b, aLimit);
   Inc(b, aLimit);
   Inc(j);
 Until
   b> Length(sInp);
end;

[alzaimar]

Beim leeren String liefert die Funktion ein falsches Resultat.

[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