DBF1.Filter := 'Field1="SomeValue"';DBF1.Filtered := True;
You mean something like thisCode: [Select]DBF1.Filter := 'Field1="SomeValue"';DBF1.Filtered := True;
procedure TForm1.MybaseFilter(DataSet: TDataSet; var Accept: Boolean);begin Accept:=Mybase.FieldByName('Field1').AsInteger>=2;end;