[Elza]

Вот так можно искать совпадения между edit и listview

Код:

var
rct:TRECT;
i: integer;
s:ShortString;
const LVM_GETITEMRECT=4110;  LVIR_BOUNDS=0;
begin
for i:=0 to Listview1.Items.Count-1  do

begin
 s:=Ansiuppercase(system.Copy(Listview1.Items[i].SubItems[0],0,length(edit1.Text)));
 if Ansiuppercase(Edit1.text)=s then

begin
LVFORUM.Selected:=Listview1.Items[i];
rct.Left:=0;
SendMessage(Listview1.Handle,LVM_GETITEMRECT,0,integer(@rct));
Listview1.Scroll(0,(i-Listview1.TopItem.Index)*(rct.Bottom-rct.Top));
end;
end;

Подскажите, как сделать, чтобы вместо edit-а совпадения искались в любой из строк listbox-а