Ausschneiden Problem

[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