Leerzeichen in einem String rauslöschen

[himitsu]

Delphi-Quellcode:

while position(FromText,text)>0 do
  replace(Text,FromText,ToText)

Bei Sowas muß man aufpassen, wenn der Suchtext ganz oder Teilweise im Ersetzungstext mit drin ist. > endlosscheife oder unerwartete Ereigebnisse.

Code:

'________'
'__' -> '*_'

'*_*_*_*_' <- das mat StringReplace/ReplaceStr
'*******_' <- das macht deine Schleife

Soein Ersetzungscode kann halt voll nicht das machen, was er soll.
[DELPHI] macht aus meinem String ' ' mit 8 Leerzeichen nur ein Leerzeichen, da es, abgesehn von Einrückungsleerzeichen, einfach so alles löscht/kürzt.
Und [CODE] macht aus den 8 Leerzeichen einfach so 7 (bzw aus den mit Zwei wird einer), weil es die Platzhalter falsch verteilt.
(drum hab ich jetzt noch schnell die Leerzeichen durch _ ersetzt. )