Delphi 使用tstring拆分字符串，省略CRLF分隔符

我有字符串

'AAA'+\$0d+\$0a+'BBB'+\$01d+'CCC'

。我需要根据#$1d字符进行拆分，如：

'AAA'+#$0d+#$0a+'BBB'
'CCC'

我正在使用函数：

procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ;
begin
   ListOfStrings.Clear;
   ListOfStrings.Delimiter     := Delimiter;
   ListOfStrings.DelimitedText := Str;
   ListOfStrings.StrictDelimiter:= true;
end;
...
split(#$1d,'AAA'+#$0d+#$0a+'BBB'+#$01d+'CCC',sl);

不幸的是，它也分裂根据CRLF，我不需要

---

如何让字符串仅由#$1d吐出？

您必须设置

ListOfStrings.StrictDelimiter:=true
   ListOfStrings.StrictDelimiter:= true;
   ListOfStrings.DelimitedText := Str; 

@KenWhite我不拥有2007，与D2009、XE、XE3一样工作