Leerzeichen in String einfügen

[majornudelholz]

Hallo,

ich brauche unbedingt Hilfe, im Internet habe ich sonst nichts gescheites gefunden...
Derzeit versuche ich vergeblich Unterstriche in ein String einzufügen, natürlich in bestimmter Reihenfolge!
Aber erst einmal zur Problemstellung:
Nach Eingabe einer Zeichenkette von max. 128 Zeichen soll nach Betätigung des Buttons alle 4 Zeichen ein Unterstrich eingefügt werden!

Meine bisherige Lösung sieht wie folgt aus:

Code:

procedure TForm1.unterstrich(text:string);
var i:integer; var textn:string;
begin
  textn:=text;
   for i:=1 to length(textn) do
      begin
         if ((i mod 3) = 0) then
        begin
          insert('_', textn, i);
        end;
      end;
  label2.caption:=textn;
end;

Wie ihr sicher unschwer erkennen könnt habe ich das Hauptproblem, dass er durch das einfügen der Unterstriche die Zeichenkette verschiebt & die Zählschleife nicht mehr bis an die letzten Zeichen 'heranreicht'... Hatte überlegt, ob das evtl. iterativ lösbar ist. Habe nur keine Idee wie..

Wäre für jegliche Hilfe hierbei dankbar!

[blawen]

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

[majornudelholz]

Zitat von blawen:

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

Hatte ich auch schon versucht. Nur habe ich wie gesagt leider keine weiteren Ideen.

[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?

[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!

[Mavarik]

Zitat von majornudelholz:

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!

Wie wäre es mit

Delphi-Quellcode:

procedure TForm1.leerzeichen(Const Text:string);
var
  _Result : String;
  PSource,PDest,PEnd : PChar;
  Count : Integer;
begin
  Setlength(_Result,length(Text)+Length(Text) div 4);
  PSource := @Text[Low(Text)];
  PDest   := @_Result[Low(_Result)];
  PEnd    := @Text[High(Text)];
  Count   := 0;

  while PSource <= PEnd do
    begin
      PDest^ := PSource^;
      inc(PDest);
      inc(PSource);
      inc(Count);
      if Count = 4 then
        begin
          Count := 0;
          PDest^ := ' ';
          inc(PDest);
        end;
    end;
  label2.caption:=_Result;
end;

"Bisschen" schneller...