Discussion :

[XeGregory]

Bonjour à tous

Quelle est la capacité maximale (KB) d'une TListBox ?

J'ai tenté de charger plus de 300000 mots dans la listbox sans succès.

C'est marrant la TStringList charge les mots sans problème, la listbox est bien basée sur une TStrings


Merci

[XeGregory]

J'ai peut être une piste : MaxListSize

[XeGregory]

Après de nombreuses tentatives à essayer de faire rentrer une liste de mots (dictionnaire) 336529 mots) dans une TListBox sans succès.

J'ai donc décidé d'opter pour une TStringGrid.

Après, j'avais une autre solution : Travailler directement avec la TStringList pour faire une recherche avec la fonction (System.StrUtils.ContainsText) puis d'afficher les résultats trouvés dans la TListBox, même avec cela j'arrive avec des résultats à plus 200000 en fonction de la recherche. J'ai abandonné la TListBox !

[exoseven]

je passe sur la joie de sélectionner un élément dans une liste de 300 000 éléments

mais tu as essayé le style lbvirtual pour ta tlistbox ?

cela existe depuis Delphi 6

[ALWEBER]

Après de nombreuses tentatives à essayer de faire rentrer une liste de mots (dictionnaire) 336529 mots) dans une TListBox sans succès.

J'ai donc décidé d'opter pour une TStringGrid.

Après, j'avais une autre solution : Travailler directement avec la TStringList pour faire une recherche avec la fonction (System.StrUtils.ContainsText) puis d'afficher les résultats trouvés dans la TListBox, même avec cela j'arrive avec des résultats à plus 200000 en fonction de la recherche. J'ai abandonné la TListBox !

Bonjour, sans garantie car je n'ai pas testé. Tu passe le parent à nil le temps de l'opération de chargement. J'ai été confronté au même problème il y a 20 ans et j'avais trouvé cette solution. C'était sous Delphi 7. Visible := false devrait marcher

[Andnotor]

Pour de grandes listes de mots, il serait préférable de passer par un stream pour le chargement.
Et pour une recherche performante, une THashedStringList.

[ShaiLeTroll]

Autant travailler avec un TClientDataSet et profiter du fenêtre du TDBGrid pour ce genre de longue collection dont l'affichage semble fort difficile et peu pertinent

C'est marrant la TStringList charge les mots sans problème, la listbox est bien basée sur une TStrings
i

TStrings est abstraite TStringList est une implémentation Delphi pure, alors que pour la ListBox, c'est une implémentation via les API windows, le code n'a rien en commun hors de l'abstraction

[XeGregory]

Voici ma fonction de chargement avec le composant TStringGrid

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
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
{ LoadDico }
function TFDictionary.LoadDico: Boolean;
const
  RESDico = 'Dico';
var
  ResFile: TResourceStream;
  Stream: TStringStream;
  List: TStringList;
  Row: Integer;
begin
  if (FindResource(hInstance, PChar(RESDico), RT_RCDATA) <> 0) then
  begin
    try
      ResFile := TResourceStream.Create(hInstance, PChar(Dico_WinDoc), RT_RCDATA);
      ResFile.Position := 0;
      Stream := TStringStream.Create;
      ECLDecompressStream(ResFile, Stream, EmptyStr); // Easy Compression Library (componentace.com)
      Stream.Position := 0;
 
      List := TStringList.Create;
      List.LoadFromStream(Stream, TEncoding.UTF8);
 
      WordList.Perform(WM_SETREDRAW, 0, 0);
      WordList.RowCount := List.Count;
      TabSheetDico.Caption := IntToStr(WordList.RowCount) + ' Mots';
 
      for Row := 0 to List.Count - 1 do
        WordList.Cells[0, Row] := List.Strings[Row];
 
      WordList.Perform(WM_SETREDRAW, 1, 0);
      WordList.Invalidate;
 
      Result := True;
    except
      Result := False;
    end;
 
    FreeAndNil(ResFile);
    FreeAndNil(Stream);
    FreeAndNil(List);
  end
  else
    Result := False;
end;

Ma procedure de recherche

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
20
21
22
23
24
25
26
27
28
29
30
31
32
{ SearchWord }
procedure TFDictionary.SearchWord(Word: String);
var
  Row, RowCnt: Integer;
begin
  PageControl.ActivePage := TabSheetDico;
 
  RowCnt := -1;
  WordFindList.Perform(WM_SETREDRAW, 0, 0);
  WordFindList.RowCount := 0;
  WordFindList.Cells[0, 0] := EmptyStr;
 
  for Row := 0 to WordList.RowCount - 1 do
  begin
    if ContainsText(UpperCase(WordList.Cells[0, Row]), UpperCase(Word)) then
    begin
      Inc(RowCnt);
      WordFindList.RowCount := RowCnt;
      WordFindList.Cells[0, RowCnt] := WordList.Cells[0, Row];
      Continue;
    end;
  end;
 
  WordFindList.Perform(WM_SETREDRAW, 1, 0);
  WordFindList.Invalidate;
 
  if RowCnt > 0 then
  begin
    PageControl.ActivePage := TabSheetFind;
    TabSheetFind.Caption := 'Mots contenant ( ' + IntToStr(WordFindList.RowCount) + ' )';
  end;
end;

[XeGregory]

Autant travailler avec un TClientDataSet et profiter du fenêtre du TDBGrid pour ce genre de longue collection dont l'affichage semble fort difficile et peu pertinent

En effet, il avait également cette solution la.

[XeGregory]

Malgré tout, le chargement dans la TStringGrid ne demande que 2 secondes max pour charger les plus de 300000 mots.
En comparaison avec une TListBox qui demande un temps considérable a la création d'items, la TStringGrid est bien plus rapide je trouve.

[ShaiLeTroll]

TStrings est abstraite TStringList est une implémentation Delphi pure, alors que pour la ListBox, c'est une implémentation via les API windows, le code n'a rien en commun hors de l'abstraction
la TStringGrid utilise encore une autre implémentation Delphi pour rendre compatible une matrice de chaine avec une vision Colonne par Colonne ou Ligne par Ligne.

Ne jamais oublier les BeginUpdate et EndUpdate, encore plus sensible sur les versions APi Windows que les versions Delphi pure.

Pour la TStringGrid, j'avais fait pour le forum une classe TStringGridCrossManager pour le sauvegarder et charger pour stockage plus compact qu'un CSV

[ShaiLeTroll]

je passe sur la joie de sélectionner un élément dans une liste de 300 000 éléments

mais tu as essayé le style lbvirtual pour ta tlistbox ?

cela existe depuis Delphi 6

C'est de loin une méthode bien plus performante, voir ce sujet sur une TListView en OwnerData qui est similaire au lbvirtual de la TListBox

Cela fonctionne aussi par fenêtrage des données, cela n'affiche que les items visible et l'on peut mettre ce que l'on veut derrière pour gérer les données (tant que l'on peut gérer un index de 0 à n)

[XeGregory]

C'est de loin une méthode bien plus performante, voir ce sujet sur une TListView en OwnerData qui est similaire au lbvirtual de la TListBox

Cela fonctionne aussi par fenêtrage des données, cela n'affiche que les items visible et l'on peut mettre ce que l'on veut derrière pour gérer les données (tant que l'on peut gérer un index de 0 à n)

En effet, c'est la bonne approche : Le chargement de données dynamique.

[ALWEBER]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i1 : integer ;
begin
 SL1 := TStringlist.Create ;
  for i1 := 1 to 300000 do
    sl1.Add('test '+i1.ToString) ;
  ListBox1.Items.Text := sl1.Text ;
end;

Moins de 3 secondes chez moi

[ShaiLeTroll]

Ou encore plus rapide puisqu'il n'y a pas de sérialisation et désarialisation, mais ce temps est negligleable façon à la création de 300 000 items dans un TListBox

Code :

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

ListBox1.Items.AddStrings(sl1) ;

Ou même Assign

Et lorsque l'on connaît le code de AddStrings ou SetDelimitedText, c'est grace à BeginUpdate et EndUpdate que les temps sont réduits, les temps sont équivalents à +/-10%, aucun des trois ne prend rééllement l'avantage sur une moyenne de 10 fois chaque lot de 300 000 insertions.
Sans Update c'est 10x plus lent

Et directement dans la TStringList, c'est 100x plus rapide que dans la TlistBox
Soit 1000x plus rapide TlistBox Sans Update.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  i1 : integer ;
  lbi: TStrings;
begin
  lbi := ListBox1.Items;
  lbi.BeginUpdate();
  try
    for i1 := 1 to 300000 do
      lbi.Add('test '+i1.ToString) ;
  finally
    lbi.EndUpdate();
  end;

[XeGregory]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i1 : integer ;
begin
 SL1 := TStringlist.Create ;
  for i1 := 1 to 300000 do
    sl1.Add('test '+i1.ToString) ;
  ListBox1.Items.Text := sl1.Text ;
end;

Moins de 3 secondes chez moi

Dico txt.zip

[ShaiLeTroll]

cela fait juste 20% de plus que la boucle, le temps lié au disque et le fait le fichier fait 330 000 lignes, cela reste que 6,5s sur mon poste professionnel

Code :

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

ListBox1.Items.LoadFromFile('Dictionnaire.txt');

La mauvaise idée serait de lire cela dans une TStringList, de la parcourir pour remplier manuellement la TListBox sans mettre BeginUpdate


Quelle est la version de Delphi ?
La VCL est basée sur les API Windows, la version des common controls peut aussi jouer sur les limites, par exemple en D7 sans XPManifest, cela peut être différent avec, c'est la version ANSI souvent très limité (bcp d'API ont des buffer max plus petit en ANSI qu'en WIDE)
Etant en D10, c'est la même version normalement mais en version UNICODE ce qui peut changer le comportement

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
<dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>

la documentation évoque une limite pour Windows 9x ... mais par pour NT, quel que soit la version

Windows 95/Windows 98/Windows Millennium Edition (Windows Me) : The wParam parameter is limited to 16-bit values. This means list boxes cannot contain more than 32,767 items. Although the number of items is restricted, the total size in bytes of the items in a list box is limited only by available memory.

EDIT :
En relisant les codes fournies pour la StringGrid, on constate que c'est avec du TEncoding donc surement un Delphi récent et le temps même avec le décodage UTF8 est similaire autour de 6s

Code :

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

ListBox1.Items.LoadFromFile('Dictionnaire.txt', TEncoding.UTF8);

[XeGregory]

Même en chargeant ma liste de cette façon-là

Code :

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

ListBox.Items.LoadFromFile('Dictionnaire.txt');

Je ne parviens même pas à obtenir le quart de la liste. Lors du déplacement vertical, ça bug.


J'utilise une version Delphi 11

[ShaiLeTroll]

D'ailleurs, pourquoi remplir manuellement la TStringGrid ?

Code :

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

  StringGrid1.Cols[0].LoadFromFile('Dictionnaire.txt', TEncoding.UTF8);

Et c'est si depuis une ressource décompressé dans Stream et uniquement la première colonne

Code :

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

  StringGrid1.Cols[0].LoadFromStream(Stream, TEncoding.UTF8);

[XeGregory]

Exemple du bug

https://jumpshare.com/s/R3cx5xPH1ddDH6hjeCJd