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. Checkedthen

Begin

…

with Tableldo

Begin

CancelRange;

SetRangeStart;

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

SetRangeEnd;

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

ApplyRange;

end; {with}

End else

Tablel.CancelRange;

end;