Leerzeichen in String einfügen

[HolgerX]

Hmm..

Oder mach es doch einfach mit einer rückwärts laufenden Schleife

Delphi-Quellcode:

function InsertUnderLine(AText : string; aPos : byte):string;
var
  i : integer;
begin
  result := AText;
  for i := length(AText)-1 downto 1 do begin
    if ((i mod aPos) = 0) then
      insert('_',result,i+1);
  end;
end;

Mit 'for' kann man nicht nur 'hochzählen' sondern auch 'runterzählen'