delphi – TStringList分裂错误

最近我被一个有信誉的SO用户通知，TStringList有分裂错误，这将导致它无法解析CSV数据。我没有被告知这些错误的性质，在互联网上包括 Quality Central的搜索没有产生任何结果，所以我问。什么是TStringList分解错误？

请注意，我对基于意见的答案不感兴趣。

我知道的：

没有多少…一个是，这些错误很少显示测试数据，但在现实世界中不那么少。

另一个是，如所述，它们阻止正确解析CSV。认为很难用测试数据重现错误，我(可能)寻求帮助，谁已经尝试使用字符串列表作为生产代码中的CSV解析器。

不相关问题：

我获得了关于“Delphi-XE”标记问题的信息，因此由于“空格字符被视为分隔符”feature而导致的解析失败不适用。因为引入的StrictDelimiter属性与Delphi 2006解决了。我，我自己，使用Delphi 2007。

此外，由于字符串列表只能保存字符串，它只负责拆分字段。涉及由于语言环境差异等引起的字段值(f.i.日期，浮点数字…)的任何转换难度不在范围内。

基本规则：

CSV没有标准规范。但有从various specifications推断的基本规则。

下面是TStringList如何处理这些的演示。规则和示例字符串来自Wikipedia.括号([])叠加在字符串周围，以便能够通过测试代码查看前导或尾随空格(如果相关)。

空格被视为字段的一部分，不应被忽略。

Test string: [1997,Ford,E350]
Items: [1997] [ Ford ] [ E350]

带有内置逗号的字段必须用双引号字符括起来。

Test string: [1997,E350,"Super,luxurious truck"]
Items: [1997] [Ford] [E350] [Super,luxurious truck]

具有嵌入的双引号字符的字段必须包含在双引号字符中，每个嵌入的双引号字符必须由一对双引号字符表示。

Test string: [1997,""luxurious"" truck"]
Items: [1997] [Ford] [E350] [Super,"luxurious" truck]

具有嵌入换行符的字段必须括在双引号字符中。

Test string: [1997,"Go get one now
they are going fast"]
Items: [1997] [Ford] [E350] [Go get one now
they are going fast]

在修改前导或尾随空格的CSV实施中，具有此类空格的字段必须括在双引号字符中。

Test string: [1997," Super luxurious truck "]
Items: [1997] [Ford] [E350] [ Super luxurious truck ]

字段可以始终包含在双引号字符中，无论是否必需。

Test string: ["1997","Ford","E350"]
Items: [1997] [Ford] [E350]

测试代码：

var
  SL: TStringList;
  rule: string;

  function GetItemsText: string;
  var
    i: Integer;
  begin
    for i := 0 to SL.Count - 1 do
      Result := Result + '[' + SL[i] + '] ';
  end;

  procedure Test(TestStr: string);
  begin
    SL.DelimitedText := TestStr;
    Writeln(rule + sLineBreak,'Test string: [',TestStr + ']' + sLineBreak,'Items: ' + GetItemsText + sLineBreak);
  end;

begin
  SL := TStringList.Create;
  SL.Delimiter := ',';        // default,but ";" is used with some locales
  SL.QuoteChar := '"';        // default
  SL.StrictDelimiter := True; // required: strings are separated *only* by Delimiter

  rule := 'Spaces are considered part of a field and should not be ignored.';
  Test('1997,E350');

  rule := 'Fields with embedded commas must be enclosed within double-quote characters.';
  Test('1997,luxurious truck"');

  rule := 'Fields with embedded double-quote characters must be enclosed within double-quote characters,and each of the embedded double-quote characters must be represented by a pair of double-quote characters.';
  Test('1997,""luxurious"" truck"');

  rule := 'Fields with embedded line breaks must be enclosed within double-quote characters.';
  Test('1997,"Go get one now'#10#13'they are going fast"');

  rule := 'In CSV implementations that trim leading or trailing spaces,fields with such spaces must be enclosed within double-quote characters.';
  Test('1997," Super luxurious truck "');

  rule := 'Fields may always be enclosed within double-quote characters,whether necessary or not.';
  Test('"1997","E350"');

  SL.Free;
end;

如果你已经读过这一切，问题是:)，什么是“TStringList分裂错误？

[1997]
[ Ford]
[ E350]
[ "Super]
[ luxurious truck"]

[1997]
[ Ford]
[ E350]
[Super luxurious truck]