leerzeichen aus strings löschen

[markus lemcke]

hi,

ich habe einen string der zwischen den wörtern mehrere leerzeichen enthält.
ich will aber das jeweils nur ein leerzeichen zwischen den wörtern steht.
wie kann ich eine funktion schreiben, die das macht!

gruß

markus

[Torsten Grundke]

Hallo Markus,

die allereinfachste, aber mit Sicherheit nicht die schnellste Variante sieht so aus:
<pre><b>
repeat
if pos(' ', Teststring) > 0 then delete(Teststring, pos(' ', Teststring), 1);
until pos(' ', Teststring) = 0;
</pre>
</b>

Tschüß

Torste

[Nico Bendlin]

oder so ...
<pre><p><b>while</b> Pos(' ', Text) > 0 <b>do</b>
Text := StringReplace(Text, ' ', ' ', [rfReplaceAll]);<p></pre>

Gruß Nic

[markus lemcke]

danke ihr beiden, werde es testen!!

gruß

marku