Delphi-PRAXiS - Delphi TStringList - Delimiter

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TStringList - Delimiter - Ausmaskieren (https://www.delphipraxis.net/123169-tstringlist-delimiter-ausmaskieren.html)

TStringList - Delimiter - Ausmaskieren

Hallo zusammen,

wenn ich eine Zeichenkette:

Test+Morgen?+2h+Verlassen

mit TStingList und dem Delimiter "+" aufteile, so bekomme ich:
Test
Morgen
2h
Verlassen

Leider gehören "Morgen" und "2h" in einer Zeile, da mit dem "?" ich das Pluszeichen vor "2h" ausmaskiere soll. Also folgend:
Test
Morgen?+2h
Verlassen

Wie geht es? Gibt es einen TStringList.MaskDelimiter?

Ich könnte es auch so implementieren:

Delphi-Quellcode:

			Ergebnis := copy(text, 1, pos('+', StringReplace(StringReplace(text, '??', 'xx', [rfReplaceAll]), '?+', 'xx', [rfReplaceAll])));
		

aber eigentlich wollte ich TStringList verwenden.

Grüße
Kef

Re: TStringList - Delimiter - Ausmaskieren

Eine Möglichkeit:
1. Ersetze alle '?+' durch '$$$'
2. Lese die Daten in die Stringlist ein
3. Ersetze in jeder Zeile '$$$' durch '+'