Discussion :

[sbeu]

Bonjour,
J'ai un problème de performance avec ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Messagedlg('Debut', mtConfirmation, [mbOk], 0);
    ComboProveedor.Properties.BeginUpdate;
    for i := 0 to Length(Form_oc.LosProveedores) -1  do
    begin
        ComboProveedor.Properties.Items.Add(Form_oc.LosProveedores[i].RazonSocial);
        ComboRUCProveedor.Properties.Items.Add(form_oc.LosProveedores[i].CodProveedor);
    end;
 
    ComboProveedor.Properties.EndUpdate;
    Messagedlg('Fin', mtConfirmation, [mbOk], 0);

Le tableau Form_oc.LosProveedores contient 7800 enregistrements.
Le temps que prend la boucle à remplir le combobox est beaucoup trop élevé.
1) Connaissez-vous un moyen de remplir les items du combobox sans faire de boucle?
2) J'utilise le combobox de devexpress, mais le principe est le même qu'un combobox classique.
3) Le combobox doit avoir une fonction d'autocompletion (déjà le cas)

Merci!

[ALWEBER]

Peut être utiliser un TstringList (ici sl1) local pour charger l'information puis passer par le propriété text pour copier l'information .items.text := sl1.text

[sbeu]

Merci de tout cœur!!! C'est ULTRA RAPIDE... Temps de chargement divisé par 20. Le client va halluciner.

La solution était pourtant simple.

[ShaiLeTroll]

Sinon BeginUpdate aurait du être sur ComboProveedor et ComboRUCProveedor

[Gouyon]

A ce sujet il y a une très bonne présentation de Primož Gabrijelčič qui a été faite lors de la convention delphicon 2020.
La vidéo est ici (https://delphicon.embarcadero.com/ta...rmance-delphi/)