Capacité maximale d'une TListBox

Version imprimable

08/04/2024, 20h11
XeGregory

Capacité maximale d'une TListBox

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. :D

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

Merci
08/04/2024, 22h35
XeGregory

1 pièce(s) jointe(s)

J'ai peut être une piste : MaxListSize

Pièce jointe 653084
09/04/2024, 20h05
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 !
09/04/2024, 20h57
exoseven

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

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

cela existe depuis Delphi 6
10/04/2024, 09h22
ALWEBER

Citation:

Envoyé par 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 !

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
10/04/2024, 09h50
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.
10/04/2024, 10h01
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

Citation:

Envoyé par XeGregory

C'est marrant la TStringList charge les mots sans problème, la listbox est bien basée sur une TStrings :aie:
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

Voici ma fonction de chargement avec le composant TStringGrid

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
{ 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:

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;

10/04/2024, 10h08
XeGregory

Citation:

Envoyé par 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

En effet, il avait également cette solution la.
10/04/2024, 10h14
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. :D
10/04/2024, 10h24
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
10/04/2024, 10h36
ShaiLeTroll

Citation:

Envoyé par exoseven

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

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)
10/04/2024, 11h02
XeGregory

Citation:

Envoyé par ShaiLeTroll

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.

Code:

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

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:

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:

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;

1 pièce(s) jointe(s)

Citation:

Envoyé par ALWEBER

Code:

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

Pièce jointe 653155

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:

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:

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

Citation:

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:

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

10/04/2024, 12h08
XeGregory

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

Code:

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
10/04/2024, 12h12
ShaiLeTroll

D'ailleurs, pourquoi remplir manuellement la TStringGrid ?

Code:

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:

StringGrid1.Cols[0].LoadFromStream(Stream, TEncoding.UTF8);
10/04/2024, 12h15
XeGregory

Exemple du bug

https://jumpshare.com/s/R3cx5xPH1ddDH6hjeCJd
10/04/2024, 12h18
ShaiLeTroll

Citation:

Envoyé par XeGregory

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

Code:

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

Avec un CTRL+Fin on arrive bien au mot en Z mais le défilement ne fonctionne pas car le ScrollBar est surementé limité à 32K ou 65K mais la liste est bien alimentée !
Et cela confirme qu'afficher une liste aussi longue n'a pas grand intérêt, quel humain va s'y retrouver ?
Pour moi c'est l'inverse qu'il faut faire, c'est plutôt un moteur de recherche de mot entier ou partiel et n'afficher que les résultats de la recherche, et encore ... j'ai fait un système de recherche récemment, dans un TTreeView, j'ai triché en affichant que lot par lot, n'importe quel utilisateur voyant un résultat de 200 000 items va refaire une recherche plus précise.
10/04/2024, 12h19
XeGregory

Citation:

Envoyé par ShaiLeTroll

D'ailleurs, pourquoi remplir manuellement la TStringGrid ?

Code:

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:

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

Je ne pensais pas qu'il était possible de charger un TStringGrid visa LoadFromStream :D de cette façon-la

Code:

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

8O
10/04/2024, 12h22
ShaiLeTroll

Cols et Rows sont des TStrings virtuelles traduisant la matrice, le code derrière n'est pas le plus simple, voir EnsureColRow

En fait, on peut facilement afficher un CSv avec une TStringGrid, ligne par ligne, Row[].CommaText / DelimitedText mais on peut aussi exploité Cols[] de la même façon
10/04/2024, 12h31
XeGregory

2 pièce(s) jointe(s)

Citation:

Envoyé par ShaiLeTroll

Et cela confirme qu'afficher une liste aussi longue n'a pas grand intérêt, quel humain va s'y retrouver ?
Pour moi c'est l'inverse qu'il faut faire, c'est plutôt un moteur de recherche de mot entier ou partiel et n'afficher que les résultats de la recherche, et encore ...

Oui c'est se que j'ai fait, après la liste de plus 300000 mots c'est juste un visuel, Effectivement, il n'y a pas grand intérêt à l'afficher.

Pièce jointe 653159
Pièce jointe 653160
10/04/2024, 12h31
Invité

L'utilisation du TStringGrid n'est pas très pertinente avec ce nombre d'elements , utiliser plutôt DrawGrid et dessiner toi même les éléments, tu auras besoin de charger uniquement les éléments à afficher
10/04/2024, 12h55
XeGregory

Citation:

Envoyé par ShaiLeTroll

D'ailleurs, pourquoi remplir manuellement la TStringGrid ?

Code:

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:

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

J'ai texté de chargé le TStringGrid de cette façon la

Code:

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

le seule problème c'est qui faut dimensionné la StringGrid avent de chargé le LoadFromStream.

J'ai dimensionné la StringGrid de 3000 RowCount pour testé, je passe plus de temp a chargé 3000 lignes que plus de 300000 en manuelle visa ma boucle FOR & TStringList. :mrgreen:

L'avantage de le TStringList c'est qui est possible de dimensionné la TStringGrid directement a la taille de la TStringList.