String in gleichlange Teile zerlegen (chunk_split)

[marabu]

Hallo Dulcet Airman,

so oder ähnlich könnte es funktionieren:

Delphi-Quellcode:

procedure LineToText(var line: string; len: integer; sep: string);
// len ist die gewünschte Zeilenlänge
// sep ist der Zeilenende-Code, z.B. #13#10 
var
  chunks: integer;
begin
  chunks := Length(line) div len + Ord(Length(line) mod len > 0);
  while chunks > 1 do begin
    Dec(chunks);
    Insert(sep, line, Succ(chunks * len));
  end;
end;

Grüße vom marabu