Entwickler-Ecke

Sonstiges (Delphi) - Leerzeichen durch Kommas ersetzen


andre.maus - Mo 12.07.04 12:45
Titel: Leerzeichen durch Kommas ersetzen
Hallo,

ich habe eine Stringlist mit Text, der viele Leerzeichen enthält.
Ich will nun alle Leerzeichen mit Kommas ersetzen.

aus:

hallo was geht
denn heute abend

soll werden:

hallo,was,geht
denn,heute,abend

Kann mir jemand weiterhelfen?

Gruß,
Andre


inselberg - Mo 12.07.04 12:57

brauchst du das für CommaText ?
weil dann kannst du das auch über DelimitedText und Delimiter lösen ...

ansonsten über jclstrings strreplace oder ganz altmod.


Quelltext
1:
2:
while pos(' ',listbox1.Items.Text) > 0 do 
 listbox1.Items.Text[pos(' ',listbox1.Items.Text)] := ',';


maxk - Mo 12.07.04 13:04


Delphi-Quelltext
1:
with ListBox1.Items do StringReplace(Text,' ',',',[rfReplaceAll]);                    


StefanH - Mo 12.07.04 15:14

maxk hat folgendes geschrieben:

Delphi-Quelltext
1:
with ListBox1.Items do StringReplace(Text,' ',',',[rfReplaceAll]);                    


wie war das? "Es wird nicht funktionieren" :)

StringReplace ist eine Funktion, ergo:

Delphi-Quelltext
1:
2:
with ListBox1.Items do 
  Text:= StringReplace(Text,' ',',',[rfReplaceAll]);


maxk - Mo 12.07.04 19:56

user defined imageOh verzeiht, da habe ich wohl einen Fehler gemachtuser defined image


StefanH - Mo 19.07.04 14:48

maxk hat folgendes geschrieben:
user defined imageOh verzeiht, da habe ich wohl einen Fehler gemachtuser defined image


dir sei verziehen user defined image