Использование Delphi для создания приложений баз данных. Устюгова В.Н. - 35 стр.

     end
     else begin
     EditRangeStart;
     FieldByName('NumGr').Aslnteger:= NumGrTmp1;
     EditRangeEnd;
     FieldByName('NumGr').Aslnteger := NumGrTmp2;
     ApplyRange;
     end
     end; //with
     end;
       Однако результат будет ошибочным. Указанный код будет правильно работать только
в случае, когда индекс по NumGr является принятым по умолчанию и в процессе работы не
изменяется (представим, что в показанном выше примере мы удалили переключатели
RadioGroup1 для выбора текущего индекса). Однако в этом случае правильно работает и
такой код
     procedure TFormA.Button2Click(Sender: TObject);
     var
     NumGrTmpl,NumGrTmp2: Integer;
     begin
     with Table2 do
     begin
     SetRangeStart;
     FieldByName('NumGr').Aslnteger:= NumGrTmpl;
     SetRangeEnd;
     FieldByName('NumGr').Aslnteger := NumGrTmp2;
     ApplyRange;
     end; //with
     end;


      1. . Используя таблицы из базы данных DBDEMOS создать приложение, в котором
создать примеры фильтрации записей в наборе данных с использованием методов
SetRange
SetRangeStart, SetRangeEnd, ApplyRange
EditRangeStart, EditRangeEnd, ApplyRange

     Свойство KeyExclusive применяется для фильтрации записей в компоненте TTable с
использованием методов SetRangeStart, SetRangeEnd и EditRangeStart, EditRangeEnd.
     Свойство KeyExclusive влияет на включение в отфильтрованный набор данных записей,
у которых индексные поля содержат граничные значения диапазона фильтрации.
KeyExclusive включается и отключается отдельно для начального и конечного условия
фильтрации.
     Если в свойство KeyExclusive для данной границы диапазона фильтрации (верхней или
нижней) установлено значение False, записи, содержащие в индексном поле (полях)
значение, указанное в качестве данной границы диапазона, включаются в отфильтрованный
набор данных, в противном случае не включаются. По умолчанию применяется значение
False.
     …
     with Table2 do
     begin
     CancelRange;
     SetRangeStart;
     KeyExclusive := True;

                                         35