chercher dans ListBox ?

Question

Salut

comment etuliser POS pour chercher dans ListBox?
j ai cett code mais il ne trouve que le premies mot

Je ne peut trouver avec cett Code le 2. eme Mot "Tom"

procedure TForm1.Edit1Change(Sender: TObject);

const

  indexStart =  -1;

 var 

  search : array[0..128] of Char;

begin

  //make sure Length(Edit1.Text) < = 128

  StrPCopy(search, Edit1.Text) ;


  ListBox1.ItemIndex :=  ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;

 end ;

procedure TForm1.Button1Click(Sender: TObject);

var

  search : array[0..128] of Char;


  indexactuell : integer;

begin

indexactuell : = Listbox1.Itemindex;


  //make sure Length(Edit1.Text) <= 128

  StrPCopy(search, Edit1.Text) ;


  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexactuell, LongInt(@search)) ;


  indexactuell := indexactuell + 1;

end;

jackalunion · Answer

Essai avec COMPARETEXT(edit1.text,listbox1.item.text)

Chercher dans ListBox ?

1 réponse

Votre réponse

Discussions similaires