Remplir une TStrings à partir du résultat d'une requête
Bonjour,
J'ai un problème de performance avec ça:
Code:
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!
