delphi - 使用 TStrings 分割字符串，省略 CRLF 分隔符

Question

我有字符串'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 的影响？

Answer 1

在设置属性 DelimitedText 之前，您必须设置 ListOfStrings.StrictDelimiter:= true;。

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