Delphi：即使设置了分隔符，StringList分隔符始终是空格字符

Question

我在 TStringList 类中的分隔符方面遇到问题。看一下：

var
  s: string;
  sl: TStringList;

begin
  sl := TStringList.Create;
  s := 'Users^foo bar^bar foo^foobar^barfoo';
  sl.Delimiter := '^';
  sl.DelimitedText := s;
  ShowMessage(sl[1]);
end;

sl[1] 应该返回 'foo bar'

sl[1] 确实返回 'foo' >

看来分隔符现在是 '^' AND ' '

有什么想法吗？

Answer 1

您应该设置 s1.StrictDelimiter := True 以使空格不被视为分隔符，更多信息此处。

由于您使用的版本不支持上述内容（正如提交答案后所澄清的那样），您有两个选择：

1. 查找您知道在原始文本中不会使用的字符（例如下划线），将所有空格转换为分割前的字符，并在分割后转换回来。这是 robosoft 的建议。
2. 如果文本中没有引号和空格，则可以使用 Alexander 的技巧，将文本换行反转命令中的分隔符，以便 'hello hello^bye bye' 变为 '"hello hello"^"bye bye"'。如果您确实选择了这条路径并且它适合您，请接受亚历山大的答案而不是我的答案，他还提供了实现它的代码。

两种不使用 StrictDelimiter 的解决方法都有局限性：第一个需要一些未使用的字符，第二个不需要原始文本中的引号和空格。

也许是时候升级到较新版本的 Delphi 了:)

Answer 2

sl.DelimitedText := '"' + StringReplace(S, sl.Delimiter, '"' + sl.Delimiter + '"', [rfReplaceAll]) + '"';

Answer 3

Ryan 使用 Delphi 中的 ExtractStrings() 函数为这个问题提供了一个很好的解决方案。请参阅：

使用 TStringList 的分隔符解析字符串，似乎也会解析空格（Delphi）

因此，在您的情况下，请将对 sl.Delimiter 和 sl.DelimitedText 的调用替换为以下行：
ExtractStrings(['^'], [], PChar(S), sl);

Answer 4

Delphi 7 的工作对我来说“就像手套一样”。这是我应用亚历山大技巧后的功能：

procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText :=  '"' + StringReplace(Input, Delimiter, '"' + Delimiter + '"', [rfReplaceAll]) + '"' ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'Users^foo bar^bar foo^foobar^barfoo';
  Split('^',Edit1.Text,Memo1.Lines);
end;

非常感谢！

Answer 5

sl.Text := StringReplace(S, sl.Delimiter, sLineBreak, [rfReplaceAll]);

Answer 6

var
  MyString: String;
  Splitted: TArray<String>;

begin
  MyString := String.Join(',', ['String1', 'String2', 'String3']);
  Splitted := MyString.Split([','], 2);
end.

选项：

Count ：返回的最大分割数；如果未指定，则默认为 MaxInt。

QuoteStart/QuoteEnd ：忽略分隔符的字符串引用部分的开始和结束字符。

选项：控制是否有任何空匹配，或者是否包含尾随空匹配。

更多信息