TStringList - Delimiter - Ausmaskieren

[Keflock]

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:
Ergebnis := copy(text, 1, pos('+', StringReplace(StringReplace(text, '??', 'xx', [rfReplaceAll]), '?+', 'xx', [rfReplaceAll]))); aber eigentlich wollte ich TStringList verwenden.

Grüße
Kef

[alzaimar]

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