6. Поиск нужных данных

Теперь разберём более эффективные способы нахождения нужной записи в таблице.

А если нам надо перейти к вполне конкретной строке (записи)? Можно конечно организовать такой цикл и найти нужную запись, но это громоздко, неудобно, и главное очень медлено! Для этого можно использовать метод таблицы Locate.

Например в нашей задаче нам надо найти запись где в поле Category значение "Cod". Этого можно добится примерно следующим кодом:

Table1.Locate('Category','Cod',[loCaseInsensitive]);

Можно "повесить" этот код на кнопку и убедится, что после выполнения этого кода активная запись стала именно та которая нам и нужна.

Итак что же за параметры мы передаём этому методу? Первый параметер - это имя поля, второй параметер - это значение поля, третий опции поиска (см. справку Дельфи). А что будет если такого значения нет? Например:

Table1.Locate('Category','Cod123',[loCaseInsensitive]);

Ничего не будет, правда метод Locate - это функция и она возвращает значение Boolean в зависимости от того, найдена запись или нет.

Преобразовав код как

if Table1.Locate('Category','Cod123',[loCaseInsensitive]) then
  showmessage('Record is located seccessful!')
else
  showmessage('Record is not found!');

можно убедится, что теперь мы знаем найдена запись или нет. Можно искать и по части значения, например

Table1.Locate('Category','Co',[])

не сможет найти запись, а

Table1.Locate('Category','Co',[loPartialKey])

вполне правильно найдёт запись с значением 'Cod'.

А если нам надо найти значение по двум полям? В этой таблице искать так бесполезно, так как все поля разные. Переключим таблицу на другую. Для этого удалим с формы все визуальные компоненты кроме DBGrid и DBNavigator (так как у новой таблицы будет совсем другой список полей). В коде напишем что-то типа:

Table1.active:=false; //закрыли таблицу
Table1.tablename:='items.db';//ассоциируем с новой таблицей на диске
Table1.active:=true; //открыли таблицу

Откомпилируем код, убедимся, что теперь мы видим совсем другую таблицу.

Теперь давайте найдём такую запись, где ItemNo=1 и Discount=50, для этого нам надо применить Locate следующим образом:

Table1.Locate('ItemNo;Discount',VarArrayOf([1,50]),[]);

Теперь несколько примечаний:

1. Для Дельфи 6/7 - добавьте "Uses Variants;"
2. Первый параметер - это список имён полей через ; без пробелов
3. Второй параметер - это массив вариант - значений полей.
   Почему вариант?
   Потому что поля могут быть разных типов и в этом массиве вполне можно задать значения разных типов:

VarArrayOf([1,'Вася', True, 3.14])