japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 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és84Date d'inscriptionlundi 19 mai 2003StatutMembreDerniè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és17Date d'inscriptiondimanche 26 janvier 2003StatutMembreDernière intervention17 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.
14 juil. 2005 à 22:45
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...) ;)
13 juil. 2005 à 20:09
A+ Michel
12 juil. 2005 à 23:30
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.