| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Индексация таблицы [D6, Paradox, ]
Вика © (2002-01-26 12:54:00)Hужно, что бы индексация Table осуществлялась по введённым символам в эдит.
Причём символы могут находиться в любом месте записи.
Решаю через OnFilterRecord
Accept:=Pos(F1.E1.Text,DateSet["xx"])>0;
Как нить можно сделать, что бы таблица фильтровалась без учёта высоты
введённых символов в эдит? Что бы запись "xxxxxxx xxxxxxxQWxxxx"
оставалась после фильтрации не только по введённому "QW" но и
по "qw" ???
Что то функция foCaseInsensitive в FilterOptions у меня не
заработала, как хотелось бы. Где-то, что-то упустила я....
Anatoly Podgoretsky (2002-01-26 23:53:00) [1]Ты попробовал прежде чем советовать?
2 Вика
Accept:=Pos({Ansi}UpperCase(F1.E1.Text),UpperCase(DateSet["xx"]))>0;
Суть в том, что бы сначала привести к одному регистру.
ЗЫ: это кстати называется фильтрация, а не индексация
wicked (2002-01-26 16:41:00) [2]можно сделать и так - на событие OnChange в эдите вешаешь обработчик примерно такого содержания:
if F1.E1.Text <> "" then begin
DateSet.Filter := "xx = " + F1.E1.Text + "*";
DateSet.Filtered := true;
end
else DateSet.Filtered := false;
и включаешь foCaseInsensitive в FilterOptions.....
недостатком такого способа - тормоза при больших наборах данных....
более элегантный способ - обойтись без фильтра... ;)
в тот же обработчик написать:
if F1.E1.Text <> "" then
DateSet.Locate("xx", F1.E1.Text, [loCaseInsensitive, loPartialKey]);
подробности смотри в help"е....
| |
