VPF::Поиск в ListView - Форум программистов

Кит

Дата 17.12.2005, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет

Как мне осуществить через 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 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

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

Код


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

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »