Leerzeichen durch Kommas ersetzen

andre.maus · Beiträge: 28 winXP Delphi 7

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 · Beiträge: 458

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.

markieren

Quelltext

1:
2:

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

_________________
hans bist du das ?

maxk · Verfasst: Mo 12.07.04 13:04

markieren

Delphi-Quelltext

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

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

StefanH · Verfasst: Mo 12.07.04 15:14

maxk hat folgendes geschrieben:

markieren

Delphi-Quelltext

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

wie war das? "Es wird nicht funktionieren"

StringReplace ist eine Funktion, ergo:

markieren

Delphi-Quelltext

1:
2:

with ListBox1.Items do 
  Text:= StringReplace(Text,' ',',',[rfReplaceAll]);

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

maxk · Verfasst: Mo 12.07.04 19:56

Oh verzeiht, da habe ich wohl einen Fehler gemacht user defined image

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

StefanH · Verfasst: Mo 19.07.04 14:48

maxk hat folgendes geschrieben:

Oh verzeiht, da habe ich wohl einen Fehler gemacht user defined image

dir sei verziehen user defined image

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme