Leerzeichen in String einfügen

[majornudelholz]

Zitat von Luckie:

Zitat von majornudelholz:

Zitat von blawen:

Wie wäre es mit einer Repeat...Until Schleife?

Hatte ich auch schon versucht.

Und was war das Ergebnis?

Naja, hatte damals keins, weil ich nicht wusste, wie... Habe nun aber eine Idee bzw. es klappt auch schon!
Trotzdem danke für die Mühen! ... und die schnellen Antworten!

Code:

procedure TForm1.leerzeichen(text:string);
var i:integer;
begin
  for i:=1 to 192 do 
         if ((i mod 3) = 0) then begin
        //delete(text, i, 1);
        insert(' ', text, i);
        end;
  trimright(text);
  label2.caption:=text;
end;

... so hat's jetzt geklappt!