begin process at 2012 02 08 08:45:57
  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é :3 840 / 481
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 DICTIONNAIRE WORD DANS UN RICHEDIT par H60
Source avec Zip TRIER DU GREC DANS UNE APPLI EN CODE LOCAL FRANÇAIS. par fricot
Source avec Zip Source avec une capture INTÉGRATION DE PAGE HTML DANS LES RESSOURCES D'UNE DLL par christophe75018
FONCTION DE CONVERSION DE MILLISECONDES EN HH:MM:SS:MMM par vyseR
Source avec Zip Source avec une capture UTILISER UNE DLL INCLUSE EN RESSOURCES par Bacterius
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LISTER LES FILMS D'UN DOSSIER ET LES INSERER DANS UN FICHIER... par Groutch
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

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 listbox [ par chahinerue6 ] bonjour a vous tous mon problem ce situ ces que je veut ecrire dans une liste box sans utiliser un boutton est un edit pour ajouter dans cette dernie 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


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Marais Salants d'Aigues-Mortes (30220), Gard 

Visiter la photothèque
 
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,874 sec (4)

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)