TStrings et dictionnaire (clé/value)

Version imprimable

25/04/2007, 17h50
Ice-tea

TStrings et dictionnaire (clé/value)

Bonjour a tous,
Je souhaiterais faire un dictionnaire (key/value). Pour m'y prendre je pense utiliser un TStrings. Je ne sais pas si c'est la bonne solution ou pas, ce que je sais c'est que le composant BDdatabase (ou database tt cours chipottons pas) dans l'onglet BDE de la palette d'objet contient une TStrings nomé PARAMS accessible sous forme : liste.value('NOM_DE_LA_Clé') => retourne la value associé a la clé; (PARAMS stock les différentes infos sur la connection ex user_name; password ... ect) .
Aprés avoir fait quelques recherches sur Internet je n'ai pas trouvé de documentation apart sur l'utilisation basique de la TStrings .add item[] ...

Voila je suis a la recherche de documentation sur la Tstrings dans le but de faire un dico

Merci d'avance
Bonne prog

Bon, la TStringList a un certains volumes serait peut-être un peu lente, mieux vaux une TStringList qui contient le "mot" et dans la Partie Objects, un pointeur sur une string ... ou objet plus complet ...

Maintenant dans Delphi, il existe une aide accesible via F1, je n'arrive pas à comprendre que l'on ne puisse pas piger comment fonctionne une TStringList avec l'aide F1 et un peu de courage pour manipuler quelques objets de base tel que le TMemo ou la TListBox qui sont basés sur des classes héritées de la TStrings ... ou même les fichiers ini, ...

Maintenant

Code:

1
2
3
4
5
MaListe.Add('Mot=Clé');
ShowMessage(MaListe.Names[0]);
ShowMessage(MaListe.Values[MaListe.Names[0]]);
ShowMessage(MaListe.ValueFromIndex[0]); // Attention à partir de D7
ShowMessage(IntToStr(MaListe.IndexOfName('Mot')));

perso, rien de plus à comprendre de plus

maintenant, j'ai fait une Liste qui permettrait de gérer des dicos un peu plus rapidement qu'une TStringList (il doit y a voir des milliers classes du même genre fait des milliers de programmeurs ...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
//------------------------------------------------------------------------------
// Auteur : S******* P***** dit Shai Le Troll, le Collègue de Shon             -
//------------------------------------------------------------------------------
 
unit uHashList;
 
interface
 
uses
   Classes;
 
type
  THashStringList = class(TObject)
  private
    InternalList: TStringList;
    function FindTag(Tag: Integer): Integer;
  protected
    function GetHashCodes(Index: Integer): string;
    function GetTag(Index: Integer): Integer;
    procedure SetTag(Index: Integer; Value: Integer);
    function GetHashValues(const HashCode: string): string;
    procedure SetHashValues(const HashCode: string; const Value: string);
    function GetTagValues(Tag: Integer): string;
    procedure SetTagValues(Tag: Integer; const Value: string);
    function GetHashTag(const HashCode: string): Integer;
    procedure SetHashTag(const HashCode: string; Value: Integer);
    function GetObjects(const HashCode: string): TObject;
    procedure SetObjects(const HashCode: string; Obj: TObject);
    function GetCount(): Integer;
  public
    constructor Create();
    destructor Destroy; override;
    procedure Clear();
 
    property HashCodes[Index: Integer]: string read GetHashCodes; // Liste Triée En Lecture Seule
    property Tag[Index: Integer]: Integer read GetTag write SetTag;
    property HashValues[const HashCode: string]: string read GetHashValues write SetHashValues; default;
    property HashTag[const HashCode: string]: Integer read GetHashTag write SetHashTag;
    property TagValues[Tag: Integer]: string read GetTagValues write SetTagValues;
    property Objects[const HashCode: string]: TObject read GetObjects write SetObjects;
    property Count: Integer read GetCount;
  end;
 
implementation
 
type
  THashStringItem = class
  public
     HashValue: string;
     Tag: Integer;
     SubObject: TObject;
     constructor Create(Value: string); overload;
     constructor Create(Value: Integer); overload;
  end;
 
resourcestring
  SDuplicateTag = 'Tag : %d déjà affecté !';
 
{ THashStringList }
 
constructor THashStringList.Create();
begin
  inherited;
 
  InternalList := TStringList.Create();
  InternalList.Sorted := True;
  // Impossible d'insérer/modifier deux fois le même élément, les accesseurs normalement sécurisent cela !
  InternalList.Duplicates := dupError;
end;
 
destructor THashStringList.Destroy;
begin
  Clear();
 
  InternalList.Free();
  InternalList := nil;
 
  inherited;
end;
 
procedure THashStringList.Clear();
var
  Index: Integer;
begin
  if Self <> nil then
  begin
    for Index := 0 to InternalList.Count - 1 do
    begin
       // Libère l'Objet Hash mais pas le SubObject
       THashStringItem(InternalList.Objects[Index]).Free();
    end;
    InternalList.Clear();
  end;
end;
 
function THashStringList.GetHashCodes(Index: Integer): string;
begin
  Result := InternalList.Strings[Index];
end;
 
function THashStringList.GetTag(Index: Integer): Integer;
begin
  Result := THashStringItem(InternalList.Objects[Index]).Tag;
end;
 
procedure THashStringList.SetTag(Index: Integer; Value: Integer);
begin
  THashStringItem(InternalList.Objects[Index]).Tag := Value;
end;
 
function THashStringList.GetHashValues(const HashCode: string): string;
begin
  Result := THashStringItem(InternalList.Objects[InternalList.IndexOf(HashCode)]).HashValue;
end;
 
procedure THashStringList.SetHashValues(const HashCode: string; const Value: string);
var
  Index: Integer;
begin
  Index := InternalList.IndexOf(HashCode);
  if Index >= 0 then
  begin
     THashStringItem(InternalList.Objects[Index]).HashValue := Value;
  end
  else
  begin
     InternalList.AddObject(HashCode, THashStringItem.Create(Value));
  end;
end;
 
function THashStringList.GetTagValues(Tag: Integer): string;
begin
   Result := THashStringItem(InternalList.Objects[FindTag(Tag)]).HashValue;
end;
 
procedure THashStringList.SetTagValues(Tag: Integer; const Value: string);
begin
   THashStringItem(InternalList.Objects[FindTag(Tag)]).HashValue := Value;
end;
 
function THashStringList.GetHashTag(const HashCode: string): Integer;
begin
  Result := THashStringItem(InternalList.Objects[InternalList.IndexOf(HashCode)]).Tag;
end;
 
procedure THashStringList.SetHashTag(const HashCode: string; Value: Integer);
var
  Index: Integer;
begin
  if FindTag(Value) >= 0 then
  begin
     raise EStringListError.CreateFmt(SDuplicateTag, [Value]);
  end;
 
  Index := InternalList.IndexOf(HashCode);
  if Index >= 0 then
  begin
     THashStringItem(InternalList.Objects[Index]).Tag := Value;
  end
  else
  begin
     InternalList.AddObject(HashCode, THashStringItem.Create(Value));
  end;
end;
 
function THashStringList.GetObjects(const HashCode: string): TObject;
begin
  Result :=  THashStringItem(InternalList.Objects[InternalList.IndexOf(HashCode)]).SubObject;
end;
 
procedure THashStringList.SetObjects(const HashCode: string; Obj: TObject);
begin
  THashStringItem(InternalList.Objects[InternalList.IndexOf(HashCode)]).SubObject := Obj;
end;
 
function THashStringList.GetCount(): Integer;
begin
  Result := InternalList.Count;
end;
 
function THashStringList.FindTag(Tag: Integer): Integer;
begin
  for Result := 0 to InternalList.Count - 1 do
  begin
     if THashStringItem(InternalList.Objects[Result]).Tag = Tag then
     begin
        Exit;
     end;
  end;
  Result := -1;
end;
 
{ THashStringItem }
 
constructor THashStringItem.Create(Value: string);
begin
  HashValue := Value;
end;
 
constructor THashStringItem.Create(Value: Integer);
begin
  HashValue := '';
  Tag := Value;
end;
 
 
end.

et ça s'utilise simplement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TFrmTest.BtnHashClick(Sender: TObject);
var
   hash: THashStringList;
begin
   hash := THashStringList.Create();
   hash['un'] := 'chaîne un';
   ShowMessage(hash['un']);
   hash['deux'] := 'chaîne deux';
   ShowMessage(hash['deux']);
   hash['TROIS'] := 'chaîne trois';
   ShowMessage(hash['trois']);
   hash['TROIS'] := 'chaîne trois modifiée';
   ShowMessage(hash['trois']);
   hash.Free;
end;

26/04/2007, 09h47
sjrd

Il y a surtout THashedStringList, unité IniFiles.
26/04/2007, 10h31
Cpt Anderson

Je conseillerais d'utiliser un tableau dynamique ou non. ;)
26/04/2007, 10h45
octal

Citation:

Envoyé par Ice-tea

Bonjour a tous,
Je souhaiterais faire un dictionnaire (key/value). Pour m'y prendre je pense utiliser un TStrings. Je ne sais pas si c'est la bonne solution ou pas, ce que je sais c'est que le composant BDdatabase (ou database tt cours chipottons pas) dans l'onglet BDE de la palette d'objet contient une TStrings nomé PARAMS accessible sous forme : liste.value('NOM_DE_LA_Clé') => retourne la value associé a la clé; (PARAMS stock les différentes infos sur la connection ex user_name; password ... ect) .
Aprés avoir fait quelques recherches sur Internet je n'ai pas trouvé de documentation apart sur l'utilisation basique de la TStrings .add item[] ...

Voila je suis a la recherche de documentation sur la Tstrings dans le but de faire un dico

Merci d'avance
Bonne prog

à partir de l'aide de delphi concernant TStrings.Values()

Citation:

Quand la liste de chaînes d'un objet TStrings comporte des chaînes qui sont des paires nom-valeur, utilisez la propriété Values pour obtenir ou définir la partie valeur d'une chaîne associée à une partie nom spécifique.
Pour plus d'informations sur les paires nom-valeur, reportez-vous à la propriété NameValueSeparator.

Remarque : L'indice Name ne distingue pas les majuscules des minuscules. C'est-à-dire que Values est la partie valeur de la première occurrence de Name ou une chaîne équivalente qui diffère seulement par la casse.

En fait quand ta TStrings (ou un descendant comme la TStringList) contient dans chaque lignes des donnée CLE/VALEUR (comme la prop params du TDatabase) comme suit

Chaine1=Valeur1
Chaine2=Valeur2
Chaine3=Valeur3
Chaine4=Valeur4

La propriété Values(...) de ta strings te donne directement la valeur associée à ta clé
MaStrings.Values('chaine3') donnera 'Valeur3'
Il faudra cependant faire attention à la remarque du fichier d'aide. La recherche se fait sur la Clé sans distinction Majuscule/Minuscule
donc
MaStrings.Values('chaINe3') donnera 'Valeur3'
MaStrings.Values('CHaine3') donnera 'Valeur3'
MaStrings.Values('CHAINE3') donnera 'Valeur3'

De plus cette methode te retournera uniquement la PREMIERE occurence qui correspond à ta clé ... donc si ta liste contient ...

Chaine1=Valeur1
Chaine2=Valeur2
Chaine1=Valeur555555
Chaine4=Valeur4

avec values tu n'aura aucun moyen d'atteindre Valeur555555

Cordialement
Octal
26/04/2007, 13h03
ShaiLeTroll

Pour la THashedStringList, je l'ai découvert récemment, sur le coup, j'ai eu peur d'avoir codé un truc inutile, mais je me suis rendu compte, que ouf, j'avais fait un truc totalement différent ...

performant aussi, le temps de recherche d'une HashedTable n'est pas constant, il dépend vraiement d'où on tombe dans la table de Hash, alors que ma THashStringList est longue à remplir puisque triée mais toujours ultra rapide à la recherche, mais je dis cela avec un bon millions d'item, le temps de remplissage de THashStringList étant comblé par le nombre de recherche effectuée qui plombe l'utilisation de la THashedStringList, si l'on a pas de chance avec les valeurs que l'on cherche ... et je compte entre 0 et 300 ms par recherche ...