Leerzeichen in String einfügen

[Dejan Vu]

Bei 192 Zeichen dürften das 'schneller' weit jenseits der Messbarkeit sein.

Delphi-Quellcode:

var
  i : Integer;
  
begin
  i := 4; // Erste Einfügeposition hinter der 4 Stelle.
  while i < Length(Text) do begin
    insert (Text, i,'_');
    inc(i,5); // weil man ja nun 5 Zeichen weiter rutschen muss
  end;
End;

Getippt und nicht getestet. Sollte aber so oder ähnlich gehen.

Übrigens: Bisschen kleiner, leichter zu verstehen, geradliniger.