Discussion :

[WebPac]

Bonjour tout le monde,

voici un code qui fait buguer les fonctionalités de la classe TStringList.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Test( Sender : TObject );
var
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create;
  sl.Values[ 'Toto' ] := 'Test';
  sl.Values[ 'Tata = Titi' ] := 'Mon second test';
 
  for i := 0 to sl.Count - 1 do
  begin
    ShowMessage( sl[ i ] );
    ShowMessage( sl.Names[ i ] );
    ShowMessage( sl.ValueFromIndex[ i ] );
    ShowMessage( sl.Values[ sl.Names[ i ] ] );
  end;
 
  sl.Free;
end;

Cela retrouver Tata comme nom et Titi = Mon second test comme valeur.
Est-ce que vous avez déjà rencontré ce problème ?
Quelle est la solution que vous préconisez ?

Personnellement, je ne voudrais pas devoir modifier le code de Borland car c'est mettre le doigt dans un engrenage que je ne maitrise pas.

Merci par avance.

[Paul TOTH]

Cela me semble être un comportement normal vu que ce qui sépare le nom de sa valeur est justement le signe "="

TStringList ne gère pas des couples de valeurs mais de simples chaines de caractères.

Tu as deux solutions :
1) ne pas mettre de "=" dans le nom de clé
2) ne pas utiliser TStringList

[WebPac]

Salut,

pourtant la TStringList sait gérer les couples clé/valeur indépendament du fait qu'elle ne les stocke pas comme des couple mais comme un simple dans la liste, cf les "" rajoutés quand il y a des espaces dans les valeurs.
Les méthodes Names, Values et ValueFromIndex fonctionnent bien même si on utilise des caractères utilisés en interne par la StringList (; , " ...) sauf le caractère =.
Ils auraient pu gérer ce caractère comme les autres en délimitant le name par des ".
En gros sl.values[ cle ] fonctionne dans tous les cas sauf si on utilise un = et ce n'est pas documenté, donc ça fait vraiment penser un oubli de leur part plus qu'à une caractéristique de fonctionnement de la StringList.

Devoir ne pas utiliser d'= m'embête un peu car je dois interpréter ce que l'insère dans la StringList pour ensuite le réinterpréter quand je récupère ce qui est mis dans la StringList.

Ne plus utiliser de StringList m'intéresse, mais ça me fait casser beaucoup de code existant et repartir avec du code neuf et ça m'embête aussi car ce n'est pas le genre de chose que j'aime faire entre 2 versions mineures de réparation de bug car on perd en stabilité globale de l'application.
Tout ceci pour un simple problème d'égale dans un cas bien particulier.

[anapurna]

salut

as tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  sl.Values[ '= Tata = Titi' ] := 'Mon second test';

le problème étant que le Tstringlist décent du TString
si tu regarde la méthode IndexOfName ou ExtractName tu
t'aperçois clairement qu'il recherche le caractère "="

@+ Phil

[Aka Guymelef]

Pour ma part j'essayerais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sl.Values[ 'Tata' ] := '"Titi = Mon second test"';

[WebPac]

Salut,

non je n'avais pas essayé mais je viens de le faire et ça bugue comme l'exemple que j'avais mis plus haut.

Si tu veux, je veux bien aussi essayer

sl.Values[ 'Tata = Titi =' ] := 'Mon second test';

Il y a des chances que ça bugue de la même façon.

En fait, je n'ai pas compris ce que ce test apportait de plus.

Pour cloturer ce sujet (car je me doute qu'il n'a pas vraiment bcp d'intérêts au final), je vais adopter la première solution dans un premier temps (remplacer = par une constante puis remplacer la constante par =) et adopter la seconde solution lors d'une phase de refactoring avant une belle période de bêta tests.

++

[Aka Guymelef]

Et avec ma méthode ?

[WebPac]

Je ne comprends pas où vous voulez en venir, je n'ai pas dû être clair dans mon premier message.

En fait, j'ai donné un exemple de code qui met en avant un bug dans les fonctionnalités clé/valeur des stringlist, je n'utilise pas ce code tel quel dans l'application et les clés et valeurs sont définies dynamiquement suivant des noms définis par l'utilisateur (en l'occurence des noms de feuilles dans Excel) et l'utilisateur n'a pas de limite dans ces noms mises à part celles d'Excel.
Il faut donc que je puisse travailler avec les clé/valeur sans bug et sans savoir à priori ce que valent les clés.
Pour les valeurs, c'est bien géré lorsqu'il y a des caractères interprétés par la StringList, mais en ce qui concerne les clés, ce n'est pas le cas.

PS : je travaille avec Delphi 7, peut-être que dans les nouvelles versions il y a eu des correctifs de fait, je ne sais pas.

[Linkin]

Ce n'est pas une question de correctif.

A chaque ligne ne correspond qu'une seule clef, si tu as plusieurs signes "=", il faut en choisir un qui détermine la clef. Celui qui est choisi est le premier. Sinon tu as plusieurs clés qui correspondent à la même ligne.

Une autre façon de faire de serait de géréer deux TStringList, l'un ou l'on ajoute la clé et l'autre où l'on stocke la valeur (elle serait retrouvée grâce à IndexOf sur la première)

[anapurna]

salut

rien ne t'empêche de derive un TStringList en modifiant les deux méthode que j'ai mentionnées (methode virtual)

@+ Phil

[Aka Guymelef]

Et bien tel qu'est tournée ta phrase :

Cela retrouver Tata comme nom et Titi = Mon second test comme valeur.

Moi je comprend :
clé : 'Tata'
valeur : 'Titi = Mon second test'

Maintenant au vu de ton dernier message ce serait plutôt :
clé : 'Tata = Titi'
valeur : 'Mon second test'

Bon, j'ai testé et effectivement le nom de clé n'accepte pas d'avoir un =, dans ce cas soit tu fais comme tu as dis, soit tu joues avec la propriété NameValueSeparator en lui mettant autre chose que =.

[WebPac]

Ce n'est pas une question de correctif.

A chaque ligne ne correspond qu'une seule clef, si tu as plusieurs signes "=", il faut en choisir un qui détermine la clef. Celui qui est choisi est le premier. Sinon tu as plusieurs clés qui correspondent à la même ligne.

Une autre façon de faire de serait de géréer deux TStringList, l'un ou l'on ajoute la clé et l'autre où l'on stocke la valeur (elle serait retrouvée grâce à IndexOf sur la première)

Je ne désire pas mettre plusieurs valeurs pour la même clé, je souhaite utiliser une clé qui est Toto = Titi.

salut

rien ne t'empêche de derive un TStringList en modifiant les deux méthode que j'ai mentionnées (methode virtual)

@+ Phil

Merci, en effet, c'est une idée, le problème est que la façon dont sont stockées les valeurs, il n'est plus possible de savoir si le premier égal fait parti de la clé où s'il est le séparateur clé/valeur.
Il faudrait donc aussi surcharger les méthodes set et stocker les valeurs différement, par exemple en rajoutant des " pour délimiter les noms.

Et bien tel qu'est tournée ta phrase :



Moi je comprend :
clé : 'Tata'
valeur : 'Titi = Mon second test'

Maintenant au vu de ton dernier message ce serait plutôt :
clé : 'Tata = Titi'
valeur : 'Mon second test'

Bon, j'ai testé et effectivement le nom de clé n'accepte pas d'avoir un =, dans ce cas soit tu fais comme tu as dis, soit tu joues avec la propriété NameValueSeparator en lui mettant autre chose que =.

En effet, mon premier message n'était pas explicite, j'otiens clé 'Tata' alors que je souhaite obtenir clé 'Tata = Titi'.

Mais l'idée de changer le NameValueSeparator est une bonne idée, en plus, je connais quelques caractères qui ne peuvent pas être utilisés par le client. C'est la solution la plus légère, je vais faire ainsi.

Merci.