TStrings.DelimitedText

JanHH · Beiträge: 46 Erhaltene Danke: 1

Hallo,

die TStringList verhält sich bei Verwendung von DelimitedText nicht so wie ich es eigentlich erwarten würde. Es wird nicht nur das Trennzeichen (Delimiter) als Trennzeichen verwendet, sondern auch Leerzeichen. Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:

myStringList.Delimiter := ';';
myStringList.DelimitedText := 'a;b und c;d';
showMessage(myStringList.Text);

dann ist das Resultat nicht, wie ich eigentlich erwarten würde
a
b und c
d

sondern
a
b
und
c
d

.

Soll das so? Find ich ja echt seltsam, was kann man denn da machen?

Gruß
Jan

Moderiert von Peter Lustig (08:18, 21.05.2004): Delphi-Tags hinzugefügt
Moderiert von Peter Lustig (13:37, 21.05.2004): Topic verschoben (beim ersten Mal übersehen)

smiegel · Verfasst: Fr 21.05.04 08:03

Hallo,

ob das so sein soll, wird wohl nur Borland wissen :wink:

.

Wenn Du die einzelnen Textteile in Anführungszeichen setzt, funktioniert es:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  myStringList.Delimiter := ';';
  myStringList.QuoteChar:='"';
  myStringList.DelimitedText := '"a";"b und c";"d"';
  showMessage(myStringList.Text);

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

IngoD7 · Beiträge: 629 D7

QuoteChar ist default auf " gesetzt.

Warum es zu dem Ergebnis kommt, wenn wie im Anfangsbeispiel gar kein QuoteChar vorkommt, sagt auch die Hilfe nicht.

MartinPb · Beiträge: 698

Alternativ kannst du auch mit

markieren

Delphi-Quelltext

1:	StringList.CommaText := 'a;b und c;d';

arbeiten. Guck ob das was bringt.

Das funktioniert übrigens:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

s := 'a;b und c;d';
s := '"' + s + '"';
s := StringReplace(s, ';', '","', [rfReplaceAll]);

myStringList.CommaText := s;
showMessage(myStringList.Text);

_________________
Gruß
Martin

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme