in einer Textdatei nach 128 Zeichen(Bytes) ein Zeilenumbruch einfügen

[ConnorMcLeod]

So etwas a la

Delphi-Quellcode:

if (Length(Memofeld.Text) >= 128) then
begin
  Memofeld.Text := Copy(Memofeld.Text, 1, 128) + CR + Copy(Memofeld.Text, 129, MaxInt);
end;