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;