Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск в ListView

Автор: Кит 17.12.2005, 17:57

Как мне осуществить через TEdit1 поиск симптомов, которыми
заполнен ListView1

ListView1 у меня заполняется следующим образом

Код


procedure TMainForm.FormActivate(Sender: TObject);
 var
NewColumn: TListColumn;
begin
FindQuery.Close;
ListView1.ViewStyle:=vsReport;
ListView1.RowSelect:=true;
NewColumn := ListView1.Columns.Add;
NewColumn.Caption := '';
NewColumn := ListView1.Columns.Add;
NewColumn.Caption := 'Название симптома';
ListView1.Columns[0].Width:=17;
ListView1.Columns[1].Width:=200;
FindQuery.SQL.Text:='SELECT Nazvanie_simptoma, Kod_simptoma FROM Simptomi ORDER BY Nazvanie_simptoma ASC';
FindQuery.Open;
While not FindQuery.Eof do
begin
ListView1.Items.Add;
ListView1.Items[FindQuery.RecNo-1].SubItems.Add(FindQuery.FieldByName('Nazvanie_simptoma').AsString);
ListView1.Items[FindQuery.RecNo-1].Caption:=FindQuery.FieldByName('Kod_simptoma').AsString;
FindQuery.Next;
end;
end;

Автор: Vit 19.12.2005, 19:52

Что-то типа этого , если я правильно понял вопрос:

Код


for i:=0 to ListBox.items.count-1 do
  begin
    if copy(uppercase(ListBox.items[i]),1,length(Edit1.text)=uppercase(Edit1.text) then
     begin
         ListBox.Selected[i]:=true;
         break;
     end
  end