Методы SetRangeStart, SetRangeEnd, ApplyRange
Эти методы (см. п.8.4.1) являются альтернативой методу SetRange, который объединяет в себе функциональность трех указанных методов.
В частности, рассмотренная в предыдущем примере фильтрация по начальному и конечному номеру группы может быть реализована таким образом:
procedure TForm1.CheckBoxIClick(Sender: TObject);
var GrNumTrnp1, GrNumTmp2 : Integer;
begin
IF CheckBox1.Checked THEN
begin
WITH Tablel do begin
CancelRange;
SetRangeStart ;
Table1. FieldByName ('GrNum') . Aslnteger: = GrNumTnpl ;
SetRangeEnd;
Tablel. FieldByName ('GrNum') .Aslnteger := GrMumTmp2 ;
ApplyRange;
END; {with}
end {then}
ELSE
Tablel.CancelRange;
end;