End else

{------------отмена фильтрации-----------}

Tablel.CancelRange;

end;

Результаты фильтрации записей с номерами группы от 2 до 4 показаны на рис. 7.19.

Рис. 7.19. Набор данных отфильтрован по группам в диапазоне 2...4.

Методы SetRangeStart, SetRangeEnd, ApplyRange

Эти методы являются альтернативой методу SetRange, который объединяет в себе функциональность трех указанных методов.

В частности, рассмотренная в предыдущем примере фильтрация по начальному и конечному номеру группы может быть реализована таким образом:

procedure TForm1.CheckBox1Click(Sender: TObject);

Var

GrNumTmp1,GrNumTmp2: Integer;

Begin

if CheckBoxl. Checked then

Begin

…

with Tablel do

Begin

CancelRange;

SetRangeStart;

Tablel.FieldByName ('GrNum').AsInteger:= GrNumTmp1;

SetRangeEnd;

Tablel.FieldByName('GrNum').As Integer:= GrNumTmp2;

ApplyRange;

end; {with}

End else

Tablel.CancelRange;

end;