德尔福：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'

看来，分隔符现在'^'和' '

任何想法？

Answer 1

应设置为s1.StrictDelimiter := True空间不被认为是分隔符，更多信息here。

既然你在不支持以上（作为答案提交后澄清）版本的工作，你有两个选择：

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

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

也许是时候升级到德尔福的新版本:)

Answer 2

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

Answer 3

瑞安提供商使用ExtractStrings这个问题的最佳解决方案（在Delphi）功能。请参阅：

Parsing a string using a delimiter to a TStringList, seems to also parse on spaces (Delphi)

所以你的情况，与线下更换到sl.Delimiter和sl.DelimitedText电话： ExtractStrings（[ '^']，[]，PChar类型（S），SL ）;

Answer 4

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

Answer 5

工作的德尔福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; 

非常感谢！