begin process at 2010 02 10 09:50:56
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > RECHERCHE APPROCHANTE DANS UNE LISTBOX

RECHERCHE APPROCHANTE DANS UNE LISTBOX


 Information sur la source

Note :
5,5 / 10 - par 2 personnes
5,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :rechercher, similaire, liste, listbox, approchant Niveau :Débutant Date de création :12/07/2005 Vu / téléchargé :2 839 / 416
Auteur : michelroc

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Petite procedure permettant de faire une recherche approchante dans une listbox (ou autre).
A chaque caractere saisie dans le Edit1 une seule recherche est faite.
Voir le source suivant ou telecharger le Zip, teste en exemple.

Source

  • procedure TForm1.Edit1Change(Sender: TObject);
  • Var I : Integer;
  • begin
  • For I := 1 To ListBox1.Items.Count Do
  • Begin
  • If Copy(LowerCase(ListBox1.Items[I-1]),1,Length(LowerCase(Edit1.Text)))
  • = LowerCase(Edit1.Text)
  • Then Begin
  • ListBox1.ItemIndex := I-1;
  • Break;
  • End;
  • End;
  • end; 
procedure TForm1.Edit1Change(Sender: TObject);
Var I : Integer;
begin
 For I := 1 To ListBox1.Items.Count Do
  Begin
   If Copy(LowerCase(ListBox1.Items[I-1]),1,Length(LowerCase(Edit1.Text)))
                                                  = LowerCase(Edit1.Text)
        Then  Begin
                 ListBox1.ItemIndex := I-1;
                 Break;
              End;
  End;
end;

 Conclusion

Chacun l'adaptera à sa façon..

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture JEU DU SUDOKU
Source avec Zip CONVERTISSEUR EURO / FRANCS
Toutes les sources de michelroc

 Sources de la même categorie

Source avec Zip Source avec une capture UTILISER UNE DLL INCLUSE EN RESSOURCES par Bacterius
Source avec Zip Source avec une capture IMAGE DANS UN TDBGRID par HAFTARIFOUAD
Source avec Zip Source avec une capture [ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec
Source avec Zip Source avec une capture MESSAGEDLG PERSONNALISÉ par HAFTARIFOUAD
Source avec Zip Source avec une capture COMMENT DESSINER SUR UN TCANVAS LE TEXTE D'UNE FORMULE CHIMI... par pseudo3
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec
Source avec Zip Source avec une capture STATUTILS - LES STATISTIQUES par Bacterius
Source avec Zip DES THREADS EN 1 CLIN D'OEIL ! par Bacterius
Source avec Zip Source avec une capture TEXTURE PACKER - OU COMMENT GÉRER UNE BANQUE DE TEXTURES FAC... par Bacterius
Source avec Zip Source avec une capture LISTE RÉCURSIVE D'UN SERVEUR FTP par John Dogget

Commentaires et avis

Commentaire de PapyJo le 12/07/2005 23:30:46

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.

Commentaire de michelroc le 13/07/2005 20:09:31

Pour les bases de données il existe "FindNearest"

A+ Michel

Commentaire de japee le 14/07/2005 22:45:27 administrateur CS

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...)  ;)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

imprimer le contenu d'une listbox [ par vdljeremie ] Bonjour, je suis en train de créer un ptit pgm qui gère une liste de personne mais je ne sais pas ct imprimer la liste(que j'ai mis ds une listbox).M Problème de ListBox [ par tof.p ] Bonjour, j'ai un problème que je n'arrive pas à expliquer, je vais essayer d'être clair :J'utilise 2 ListBox, une procédure recherche dans une premièr PROBLEME : Caracteres mofifié sur chargement listbox [ par pataphysicien ] Bonjour tout le monde.Je travaille sur un utilitaire de sauvegarde pour newbies.Je désire afficher la liste des fichiers qui vont etre sauvegardé dans fichier.txt ---> ListBox [ par Dejoul ] Cette procedure me fait ressortir 26 ligne d'un fichier bloc note dans un listbox. Je voudrais que le chiffre 25 soit remplacer par "infini" , car sin ListBox : liste hors limite [ par hesnogood ] Bonjour, Ayant trop de lignes dans un listBox, à chaque manipulation j'ai le message d'erreur 'Indice de liste hors limites' apparait. Comment suppri Scroll de 2 listbox [ par danfranjo ] Bonjour à tous, et bonne année 2008Voici mon problème :J'ai 2 listbox qui ont chacune une liste de mots.Je fais correspondre les mots de l'une avec le Constante de ListBox [ par Jean_Jean ] Bonjour,Pour faire apparaître et disparaître la liste déroulante d'une combobox, j'utilisais :     ComboBox1 recherche dans une listbox [ par TouTSpeed ] bonjour à tousj'utilise ce code sous delphi 6 édition personnel pour rechercher un texte dans une listboxvarindex2 : integer;beginindex2 := SendMessag rechercher selectionner dans listbox [ par guy jeuniaux ] dans un listbox je voudrais pouvoir rechercher une ligne ( nom) en tapant la premiere lettre pour me deplacer plutot que d'utiliser la barre de defile selection dans listbox et chargement dans une autre [ par guy jeuniaux ] Sur ma Form 1 listbox de selection reprenant par exemple une liste de noms.Lorsque je selectionne un des noms dans cette liste j'aimerai charger une a


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)