|
Registriert seit: 23. Nov 2006
17 Beiträge
Delphi 2007 Enterprise
|
TStringList - Delimiter - Ausmaskieren
28. Okt 2008, 21:48
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
|