Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 50 стр.

записи. В приведённом примере для смены индекса используется компонент
RadioGroup.
     Метод SetRange даёт тот же эффект, что и последовательное примене-
ние процедур SetRangeStart, SetRangeEnd, ApplyRange. В качестве пара-
метров задаются массивы констант, определяющие начало и конец диапазона.
Ниже приведёна реализация фильтрации диапазона с использованием метода
SetRange.
procedure TForm1.Button6Click(Sender:TObject);
var RangeS, RangeE:longint;
begin
Table1.CancelRange;
case RadioGroup1.ItemIndex of
 0:begin
    RangeS:=strtoint(Edit3.Text);
    RangeE:=strtoint(Edit4.Text);
    Table1.SetRange([RangeS],[RangeE]);
    end;
 1:Table1.SetRange([Edit3.Text],[Edit4.Text]);
 end;
end;


                                 2.8. Поиск

     2.8.1. Поиск записи по любому полю
     Для поиска записи по любому полю предназначены методы Locate и
Lookup. Функция Locate ищет первую запись, удовлетворяющую условию
поиска, и делает её текущей. Если запись найдена, функция Locate возвращает
true, иначе false.
Locate(KeyF:String;KeyV:String;Optns:TLocateOptions):Boolean;
     В описании функции приняты обозначения: KeyF – имя поля, по которо-
му выполняется поиск; KeyV – искомое значение поля; Optns – параметры поиска.
     Параметры поиска [loCaseInsensitive,loPartialKey] влияют на
чувствительность к регистру и возможность поиска по частичному совпадению.
     Часто целесообразно использовать конструкцию, позволяющую сооб-
щить о том, что запись не найдена.

                                      50