Separierte Stringliste zu String zusammenfügen

[frieder2008]

Moin zusammen,

und noch ein "Problem": Wie ich einen String splitte, weiß ich. Und das geht gut und schnell. Aber umgekehrt..

Delphi-Quellcode:

Stringliste:= '1'#13#10'2'#13#10...
for i:= 0 to Stringliste.count-1 do
  MeinString:= MeinString + ' ' + Stringliste.strings[i];

..dauert es bei sehr großen Listen (~ 1 Mio Zeilen) sehr/viel zu lange.

Gibt es eine schnellere Lösung als die Liste durchzugehen und via "+" zusammenzufügen? Oder ist TStringlist dafür nicht geeignet, was aber dann?

Danke und Grüße,
frieder

[mkinzler]

MeinString := StringListe.Text; oder MeinString := StringListe.DelimitedText;

[Lemmy]

öhm.. versteh ich dein Problem nicht oder kennst Du
MeinString:= Stringliste.Text; nicht? Wenn Du dann anstelle der Zeilenumbrüche nur Leerzeichen haben willst, dann probier mal:

Delphi-Quellcode:

  StringList.Delimeter:=' ';
  MeinString:=StringList.DelimetedText;

verflixt zu langsam...

[Union]

Ich hab dazu mal eine Frage: Was machst Du im konkreten Fall mit diesem Monsterstring? Hast Du dadrin Die Suche nach der verlorenen Zeit gespeichert?

[sx2008]

* mit einer Schleife die Längen aller Einzelstrings aufaddieren
* dann (Lenght-1) mal (Länge des Delimiters) dazuaddieren
das ergibt die Gesamtlänge des resultierenden Strings.
Dieser String wird einmalig mit SetLength() reserviert und dann mit einer weiteren Schleife mit den Einzelstrings und Delimitern befüllt.
Wenn man dabei mit Zeigern arbeitet und die Move()-Prozedur benützt läuft der Code sehr schnell.
Je nach Länge der Stringliste kann das Faktor 1000 und mehr sein.

[DeddyH]

Wozu dieser Umstand, wenn die Liste das von Haus aus mitbringt?

[sx2008]

Zitat von DeddyH:

Wozu dieser Umstand, wenn die Liste das von Haus aus mitbringt?

Der TStrings.Delimiter ist begrenzt auf ein Zeichen und ausserdem erst ab Delphi 6 verfügbar.
Um das zu umgehen braucht es dann eben diesen "Umstand".