Discussion :

[XeGregory]

Bonjour,

Y a-t-il une autre méthode plus rapide pour ajouter des données dans une TStringList index sans doublons ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PickList.Items.BeginUpdate;
while not ClientDataSet.Eof do
begin
  if ClientDataSet.Fields.FieldByName('MyCol').AsString <> EmptyStr then
  begin
    if ListBox.Items.IndexOf(ClientDataSet.Fields.FieldByName('MyCol').AsString) = -1 then
      ListBox.Items.Add(ClientDataSet.Fields.FieldByName('MyCol').AsString);
  end;
 
  Next;
end;
 
PickList.Items.EndUpdate;

J'ai testé avec une base de données qui contient 30000 données, le traitement prend pas mal de temps (~40 Secondes), sans le IndexOf ça prend ~2 secondes.

Merci

[XeGregory]

Je pense avoir trouvé mon bonheur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
List := TStringList.Create;
List.Sorted := True;
List.Duplicates := dupIgnore;
 
while not ClientDataSet.Eof do
begin
  if ClientDataSet.Fields.FieldByName('MyCol').AsString <> EmptyStr then
    List.Add(ClientDataSet.Fields.FieldByName('MyCol').AsString);
 
  Next;
end;
 
ListBox.Items := List;
List.Free;

[Andnotor]

Les plus rapide serait sans doute d'utiliser une THashedStringList (inifiles.pas) avec IndexOf.

[XeGregory]

Les plus rapide serait sans doute d'utiliser une THashedStringList (inifiles.pas) avec IndexOf.

Bonjour Andnotor,

J'ai testé avec THashedStringList, Le traitement dur plus (~40 Secondes) le IndexOf fait mouliné le traitement, au final cela revient au mème d’utiliser directement une TListbox ou une TStringList avec l'IndexOf.

Après c'est bizarre, j'ai jeté un coup œil à la doc de la THashedStringList, elle est censé être beaucoup plus performante que la TStringList.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
List := THashedStringList.Create;
while not ClientDataSet.Eof do
begin
  if ClientDataSet.Fields.FieldByName('MyCol').AsString <> EmptyStr then
  begin
    if List.IndexOf(ClientDataSet.Fields.FieldByName('MyCol').AsString) = -1 then
      List.Add(ClientDataSet.Fields.FieldByName('MyCol').AsString);
  end;
 
  Next;
end;