RECHERCHE PAR MOTS CLEFS AVEC UNE LISTBOX

Commentaire de morinxav2 le 08/01/2008 16:11:45

Bonsoir,
super cela m'a economisé quelques nuits de sommeil !!
juste deux fonctions supplèmentaires pour completer ton travail :

{-----------------< FUNCTION Cherche_ListBox_Suivant >-------------------}

function Cherche_ListBox_Suivant(Chaine : string ; ListBox : TListBox) : Integer;
var
  Index : integer;
  CurrentItem : string;

begin
  Result := -1;
  Chaine := UpperCase(Chaine);

  for Index := listbox.ItemIndex+1 to ListBox.Items.Count - 1 do
  begin
    CurrentItem := UpperCase(ListBox.Items.Strings[Index]);
    //AddError(IntToStr(Index)  + ' WinText : ' + Chaine + ' Nb Sous Chaine : ' + IntToStr(NbSousChaine(Chaine, CurrentItem)));
    //AddError(Chaine + ' - ' + CurrentItem);
    if NbSousChaine(Chaine, CurrentItem) > 0 then
    begin
      Result := Index;
      Exit;
    end;
  end;
end;
{----------------< FUNCTION Cherche_ListBox_Precedant >------------------}

function Cherche_ListBox_Precedant(Chaine : string ; ListBox : TListBox) : Integer;
var
  Index : integer;
  CurrentItem : string;

begin
  Result := -1;
  Chaine := UpperCase(Chaine);

  for Index := listbox.ItemIndex-1 downto 0 do
  begin
    CurrentItem := UpperCase(ListBox.Items.Strings[Index]);
    //AddError(IntToStr(Index)  + ' WinText : ' + Chaine + ' Nb Sous Chaine : ' + IntToStr(NbSousChaine(Chaine, CurrentItem)));
    //AddError(Chaine + ' - ' + CurrentItem);
    if NbSousChaine(Chaine, CurrentItem) > 0 then
    begin
      Result := Index;
      Exit;
    end;
  end;
end;
bonne prog, A+