Ausschneiden Problem

[maximus Caesar]

Ich möchte aus einem Text Blöcke von jeweils 32 Zeichen länge herausschneiden. Dies mache ich so:

Delphi-Quellcode:

repeat
    a:=a+1;
    Block:=text;
    delete(Block,0,(a*32));
    delete(Block,33,length(Block));

text ist der vollständige Ursprungstext.
a wird vor der Repeat-Schleife auf -1 gesetzt.
Nun bekomme ich jedesmal den selben Block.
Was mache ich falsch?

PS: Weiß leider nicht, wie man so ein PRoblem nennen soll, deswegen der Titel

[marabu]

Hallo,

hier mein Vorschlag:

Delphi-Quellcode:

function Block(s: string; size, index: cardinal): string;
var
  iMax: cardinal;
begin
  iMax := Length(s) div size - Ord(Length(s) mod size = 0);
  if index > iMax
    then Result := ''
    else Result := Copy(s, Succ(index * size), size);
end;

Grüße vom marabu