Bonjour tout le monde,
voici un code qui fait buguer les fonctionalités de la classe TStringList.
Cela retrouver Tata comme nom et Titi = Mon second test comme valeur.
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;
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.
Partager