Leerzeichen in String einfügen

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