Bogues de fractionnement de TStringList

Récemment, j'ai été informé par un utilisateur de bonne réputation SO, que TStringList a des bogues de fractionnement qui le feraient échouer l'analyse des données CSV. Je n'ai pas été informé de la nature de ces bugs, et une recherche sur internet incluant Quality Central n'a pas produit de résultats, donc je demande. Quels sont les bogues de fractionnement TStringList ?

Veuillez noter que je ne suis pas intéressé par des réponses fondées sur des opinions non fondées.

Ce Que Je savoir:

Pas grand-chose... L'un est que, ces bugs apparaissent rarement avec des données de test, mais pas si rarement dans le monde réel.

L'autre est, comme indiqué, qu'ils empêchent l'analyse correcte de CSV. Pensant qu'il est difficile de reproduire les bogues avec des données de test, je cherche (probablement) de l'aide de qui ont essayé d'utiliser une liste de chaînes comme analyseur CSV dans le code de production.

Problèmes non pertinents:

J'ai obtenu les informations sur une question étiquetée' Delphi-XE', donc échec de l'analyse en raison du caractère d'Espace "considéré comme un délimiteur" caractéristique ne pas appliquer. Parce que l'introduction de la StrictDelimiter propriété avec Delphi 2006 résolu que. Moi-même, j'utilise Delphi 2007.

De plus, comme la liste de chaînes ne peut contenir que des chaînes, elle n'est responsable que du fractionnement des champs. Toute difficulté de conversion impliquant des valeurs de champ (F. I. date, nombres à virgule flottante..) découlant des différences locales, etc. ne sont pas dans la portée.

Règles de Base:

Il n'y a pas de spécification standard pour CSV. Mais il existe des règles de base déduites de diverses spécifications .

Ci-dessous est une démonstration de la façon dont TStringList les gère. Les règles et les chaînes d'exemple proviennent de Wikipedia . Supports ([ ]) sont superposés autour des chaînes pour pouvoir voir les espaces de début ou de fin (le cas échéant) par le code de test.

les Espaces sont considérés comme faisant partie d'un champ et ne doit pas être ignoré.

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

les champs avec des virgules intégrées doivent être entourés de guillemets doubles.

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

les champs comportant des guillemets doubles intégrés doivent être entourés de guillemets doubles, et chacun des guillemets doubles intégrés doit être représenté par une paire de guillemets doubles.

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

les champs avec des sauts de ligne intégrés doivent être entourés les guillemets doubles.

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

dans les implémentations CSV qui découpent les espaces de début ou de fin, les champs contenant de tels espaces doivent être entourés de guillemets doubles.

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

les champs peuvent toujours être entourés de guillemets doubles, qu'ils soient nécessaires ou non.

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

Code de test:

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, Ford , E350');

  rule := 'Fields with embedded commas must be enclosed within double-quote characters.';
  Test('1997,Ford,E350,"Super, 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,Ford,E350,"Super, ""luxurious"" truck"');

  rule := 'Fields with embedded line breaks must be enclosed within double-quote characters.';
  Test('1997,Ford,E350,"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,Ford,E350," Super luxurious truck "');

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

  SL.Free;
end;

Si vous avez tout lu, la question était :), quels sont les bugs de fractionnement de " TStringList?"