Home » Tipps & Tricks » Object Pascal » Strings » Zeichen in einem String ersetzen

Zeichen in einem String ersetzen

Dieses Beispiel ersetzt alle Leerzeichen durch Nullen:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '   123,5';
  //Leerzeichen in Nullen umwandeln
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

Dieses Beispiel löscht alle Leerzeichen:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := '   123,5';
  while Pos(' ', S) > 0 do
    Delete(S,Pos(' ', S),1);
end;

// TODO: StringReplace?