Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как организовать поиск в таблице table1 по принципу... [D5]


nitro313 ©   (2002-06-26 05:03:00) 

Народ, помогите:
Как организовать поиск в таблице table1 по принципу: Нашел запись, искать далее?
Заране благодарен.


VAleksey   (2002-06-27 06:30:00) [1]


> nitro313 (27.06.02 03:22)

совсем народ обнаглел.
Для неполного совпадения используй FindNearest все остальное см
> Lola © (26.06.02 19:36)


nitro313   (2002-06-27 03:22:00) [2]

Напишите пожалуйста алгоритм поиска не полным совпадением, а частичным.
Заранее благодарен.


Lola   (2002-06-26 19:36:00) [3]

with Table1 do
begin
IndexFieldNames:="Otdel;Fam";
EditKey;
FieldByName("Otdel").AsString := Edit1.Text;
FieldByName("Fam").AsString := Edit2.Text;
if(not GotoKey) then ShowMessage("Запись не найдена")
else ShowMessage("Запись найдена")
end;

Вместо ShowMessage("Запись найдена") можно вставить окно диалога.


nitro313   (2002-06-26 14:58:00) [4]

Нашите пожалуйста, кто-нибудь работающий алгоритм поиска. "Нашел-искать далее". Очень нужно!!!
Заранее спасибо.


Lola   (2002-06-26 11:08:00) [5]

Только перед FindNext вставь вопрос "Искать дальше? да нет"


VAleksey   (2002-06-26 08:25:00) [6]

Это тебе надо в базы данных.
Если поле индексное, то использовать FindFirst и FindNext


Наверх

Титульная страница Поиск, карта сайта Написать письмо