Bestimmte Zeichen im String durch andere ersetzen!?

[uwewo]

Hi,

das hier kommt aus der Delphi Hilfe

Delphi-Quellcode:

var S: string;

begin
  S := '   123,5';
  { Leerzeichen in Nullen umwandeln }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

erfüllt doch seinen Zweck