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?