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

    procedure TFormA.Button2Click(Sender: TObject);
    var
    NumGrTmpl,NumGrTmp2: Integer;
    begin
    with Table2 do
    begin
    // Отмечаем строку текущего выбора в RadioGroup2:
    RadioGroup2.ItemIndex := 1;
    // Смена текущего индекса:
    IndexFieldNames := 'NumGr';
    SetRange([NumGrTmpl],[NumGrTmp2]);
    end; //with
    end;

    Чтобы исключить ошибок при фильтрации при переключении индексов, следует перед
новой фильтрацией (по какому бы то ни было индексу) отменять результаты предыдущей
фильтрации методом CancelRange:

    procedure TFormA.Button2Click(Sender: TObject);
    var
    NumGrTmp1,NumGrTmp2: Integer;
    begin
    with Table2 do
    begin
    CancelRange;
    RadioGroup2.ItemIndex := 1;
    // Смена текущего индекса:
    IndexFieldNames := 'NumGr';
    SetRange([NumGrTmp1],[NumGrTmp2]);
    end; //with
    end;

     Методы EditRangeStart, EditRangeEnd предназначены для смены условий фильтрации,
установленных ранее с использованием соответственно методов SetRangeStart и
SetRangeEnd. Cама фильтрация в этом случае выполняется методом ApplyRange.
Преимущества их использования ясны не всегда.
     procedure TFormA.Button2Click(Sender: TObject);
     var
     NumGrTmpl,NumGrTmp2: Integer;
     const
     Num: Integer = 0;
     begin
     inc (Num).;
     with Table2 do
     begin
     if Num = 1 then
     begin
     SetRangeStart;
     FieldByName('NumGr').Aslnteger:= NumGrTmp1;
     SetRangeEnd;
     FieldByName('NumGr').Aslnteger := NumGrTmp2;
     ApplyRange;

                                           34