RECHERCHE APPROCHANTE DANS UNE LISTBOX

cs_PapyJo Messages postés 17 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 17 juillet 2006 - 12 juil. 2005 à 23:30
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 14 juil. 2005 à 22:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32658-recherche-approchante-dans-une-listbox

japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
14 juil. 2005 à 22:45
Je ne sais pas s'il y a plus "simple", mais moi j'aime bien ce petit bout de code, précisément pour sa simplicité et son efficacité.

Pline l'ancien, alias japee.

(y'a un sale temps sur Pompéi, aujourd'hui, comprend pas trop. Les prévisions météo étaient pourtant bonnes. Nous on s'en fout, on va pique-niquer au pied du Vésuve, comme prévu...) ;)
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010
13 juil. 2005 à 20:09
Pour les bases de données il existe "FindNearest"

A+ Michel
cs_PapyJo Messages postés 17 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 17 juillet 2006
12 juil. 2005 à 23:30
Salut.
J'ai eu besoin de faire cette manip pour une recherche dans
une base de donnée.
Il y a beaucoup plus simple grace aux messages windows.

procedure TForm1.Edit1Change(Sender: TObject);
begin
// Utilisation de l'API Sendmessage........
Listbox1.ItemIndex:=SendMessage(ListBox1.Handle,LB_FINDSTRING,-1,integer(Edit1.Text));
end;

Tu écris ce que tu cherche dans un TextBox et des qu'il y a concordance c'est bon. Se moque des minuscules/Majuscules.
PapyJo l'ancien.
Rejoignez-nous