Recherche dans une listbox

Soyez le premier à donner votre avis sur cette source.

Vue 8 247 fois - Téléchargée 834 fois

Description

Cette unitée permet de faire une recherche , dans
une ListBox, sur les premier caracteres entrés.

L'unitée recherche la 1er occurence,seulement, mais c'est déjà pas mal.

Car en effet si vous voulez faire une recherche dns une liste, c'est tres facile, mais si vous ne vous rappelez plus de l'orthographe ça ce complique, donc cette fonction vous facilte la vie
car vous entrez les 1 ere lettre est cé ok

Source / Exemple :


unit Cherche_Dans_ListBox;

interface

 uses
    Classes, StdCtrls ;

   Function Cherche_ListBox(Chaine:string;ListBox:TListBox):Integer;

implementation

Function Cherche_ListBox(Chaine:string;ListBox:TListBox):Integer;
 var TayChain, ListCont, i, j : integer;
     s, s2                    : string;
     ListVirtuel              : TStringList;
  begin
      ListVirtuel := TStringList.Create;
      TayChain    := Length(Chaine);
      ListCont    := ListBox.Count-1;

    For i:= 0 to ListCont do
     begin
      s := ListBox.Items.Strings[i];
       s2 := '';
       if Length(s) > TayChain Then
        begin
          for j := 1 to TayChain do
           begin
             s2 := s2 + s[j];
           end;
        end
        else s2 := s;

      ListVirtuel.Add(s2);
     end;

      result := ListVirtuel.IndexOf(Chaine);

      ListVirtuel.Destroy;

  end;
end.

Conclusion :


Voilà c'est tout

dans le zip c'est mieux expliqué et il y a un exemple

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.