Discussion :

[SergioMaster]

Bonjour,
Comme écrit quelque part dans la doc, il faut un nombre "raisonnables" de lignes mais, bon, ce n'est pas toujours possible.

Je me retrouve avec quelques extractions de données de quelques 5000 lignes et, bien évidemment, le remplissage prends du temps.

Quelle solution utilisez-vous dans ce genre de cas ?

Pour pallier mon problème j'ai utilisé un TListView identique lié à une requête qui n'extrait qu'un nombre très limité de lignes pour ensuite continuer le remplissage de la "vraie" liste via un Thread
un rectangle, contenant entre autres un TAniIndicator me permettant de montrer que le travail continue

un thread se charge de la gestion de ces composants

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
procedure TMain.LoadArticles;
begin
ThreadA_Active:=True;
ListeVArticles.BeginUpdate;
ThreadA:=
  TTask.Run( procedure
  begin
   TThread.Synchronize(TThread.Current,
              procedure
              begin
                WaitForLp.Visible := True;
                Aniwaitforlp.Enabled := True;
              end);
    Datas.ImgArticles.DisableControls;
    Datas.ImgArticles.Open;
    TThread.Synchronize(TThread.Current,
              procedure
              begin
                Datas.PremiersArticles.Close;
                ListePremiers.Visible:=False;
                WaitForLp.Visible := False;
                Aniwaitforlp.Enabled := False;
                Datas.imgArticles.EnableControls;
                ListeVArticles.EndUpdate;
                ThreadA_Active:=False;
              end);
  end);
end;

ce qui ne me plait pas : le fait d'avoir deux TListView, et deux sources de données différentes.
J'ai tenté les approches des Fetchoptions de Firedac (Rowsetsize, LiveWindowFastFirst) mais la liaison via LievBindings semble se contrefiche de ces indications contrairement à un TGrid (ce n'est pas la première fois que je le déplore).

J'ai encore une piste non explorée (totalement oubliée jusqu'à ce que j'écrive ce post) : FecthOptions.Recsmax.

Sinon, ma question, comment faites-vous dans un cas pareil ?

[ShaiLeTroll]

J'ai eu un peu ce problème, pas en FMX mais en VCL

Faire un remplissage incrémental d'une TListView n'est pas aisée effectivement en VCL,
faudrait conserver ta TListView pour afficher juste la page de données courante, désactiver la scrollBar automatique et ajouter une scrollbar manuellement, en fait lors du défilement, tu vides la TListView et tu la remplis avec le contenu de la page à partir de la nouvelle position, en fait comme une TDBGrid
C'est ce que j'ai fait en VCL

Voir si en FMX c'est possible aussi mais pour le LiveBindings, ça doit être la merde cependant, il y a peut-être une astuce
Tu as ta source de données completes à 5000 lignes, est-il possible en LiveBindings de récupérer dans uen autre source de données qu'un fragment genre un filter RecNo à RecNo +20 et connecter la TListview de fenêtrage.
La scrollBar étant est lié sur la source complète pour gérer le défilement de 1 à 5000 qui repercuter dans la source de fenêtrage.

Je suis tellement habitué à tout faire via du code, j'ignore comme on peut chainer les LiveBindings,
Je vois cela un peu comme une fausse relation Maitre\Detail, le Maitre c'est la source complète, le Détail c'est le fenêtrage.
Peut-être conserver deux sources mais un seul TListView
La source des 5000, une source table mémoire rempli lors du OnScroll sur les 5000 qui n'en copie que 20, le TListView braché sur la table mémoire, le scrollBar indépendant toujours connecté sur les 5000.


Pour un TTreeView devant contenir 500 000 items, j'ai laissé tomber le remplissage complet, comme il y avait 7 origines, j'ai ajouté un TabSheet par origine
Je ne charge que le niveau 1, j'ouvre le niveau 2 et 3 du premier noeud
Le reste des niveaux 1 reste replier et c'est rempli à la volée sur OnExpand


Après, si c'est une application mobile, le concept de pagination comme pour le web peut être une solution, on voit bcp de site web qui gère des simples bouton pages avant\arrière, quelques rares gère une liste incrémentales qui s'agrandit lorsque l'on défile jusqu'à la fin

[SergioMaster]

Faire un remplissage incrémental d'une TListView n'est pas aisée effectivement en VCL,

Oui, c'est un peu le même principe

En fait, le système de pagination j'ai essayé et c'est un peu ce que je fais avec la solution que j'utilise.
Mais un système de pagination n'est pas compatible avec la possiblité de faire une recherche (TSearchBox) nécessitant que tous les élements soient dans la liste.

[ShaiLeTroll]

Si la donnée est entièrement en mémoire, la pagination n'est pas un problème pour la Recherche

Tu fais la recherche en mémoire de la ligne parmi les 5000,
une fois trouvée, tu calcules la fenêtre à afficher,
selon les capacités de LiveBinding, tu sélectionnes\recopies dans le tampon la fenêtre pour qu'elle soit affiché dans le TListView

Rappel le TListView ne contient que la fenêtre d'enregistrement jamais les 5000 mais uniquement ce qui est visible (entièrement visible pas de demi-ligne)
Couplé à la ScrollBar, celle-ci est recalé sur la fenêtre ... d'ailleurs avec la chaine des OnChange, OnScrol et je ne sais quoi, la recherche pourrait juste retourner la fenêtre, déplacer le curseur dans la ScrollBar qui se chargera par ricochet de récupérer la fenêtre, puis ensuite la recherche sélectionne l'item parmi ceux de la fenêtre.

Encore une fois, j'ignore ce que LiveBinding permet, faisant tout en code, tout ça me semble simple quand on maitrise tous les tampons et les gestionnaires d'évènement


Si tu veux remplir réellement le TListView sans un système de fenêtrage, là oui le coût d'ajout des lignes juqu'à l'élément recherché, si l'on cherchait le dernier revient à tout charger
Tout cela est contre-performant car au final, tu as toutes les données une fois en mémoire et une seconde fois dans le controle.
Mais je pense avec une logique où les listings étaient à 1 000 000 sur une base de 1 000 000 000 d'enregistrement inséré par an

[SergioMaster]

Le FMX.Listview est très différent du VCL.ListView