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;