Discussion :

[jdudoret]

Bonjour,
J'utilise un DBLookUpListBox pour effectuer une recherche sur une base de données Paradox 50 colonnes / 35000 lignes. A cet effet, j'ai fragmenté cette base en 10 tables. Tout cela fonctionne bien sur le principe.
Pour faire une approche plus rapide, avec je voudrais utiliser un TEdit pour synckroniser le DBLook..
J'ai essayé le couple SetKey..GotoKey et le couple SetKey..FintNearest sans aucun résultat..

"Table1.SetKey;
Table1.FieldByName('champ2'). asString := edit1.text;
Table1.GotoKey;

Le "champ1" indique le numéro de la rangée et le nom que je recherche se trouve dans le "champ2"

Comment utiliser FintNearest([Edit1.Text]) ?

Un autre petit problème : Le curseur du DBLookUpListBox est trop volumineux et ne s'accroche pas correctement proportionellement dans l'intervalle vertical censé paramétré la totalité de la table 1 parmi 35000. Les flèches haut ou bas fonctionne correctement pour la recherche. Il fait un saut de plusieurs lignes avant que la liste se déplace. Comment peut-on remédier à ce défaut ( delphi ou windows XP)

Merci aux connaisseurs.
J.D

[jdudoret]

Bonjour,

J'ai persévéré à l'aide du manuel Delphi 3 de Dick Lantim.
et la recherche incémentale fonctionne maintenant à l'aide d'un TEdit :
"procedure TForm1.Edit1hange(sender : TObject);
begin
Table1.SetKey;
Table1.FindNearest([Edit5.Text]);
end;

+ paramétrage de "indexName" de table1 qu'il faut définir dans la table de restructuration.
Le contenu du DBLookUpListBox se déplace automatiquement dès la première lettre ou chiffre inscrit dans le TEdit afférent (Edit5 dans mon cas).
Donc affaire résolue.