есть ClientDataSet и необходимо делать фильтрацию по частичному соответствию в полях

задаю в четырех TEdit подстроку для фильтра
eClientCode
eByProjCode
eByNameFind
eSite

затем окончательная кнопка - на ней висит

procedure TfLocalProjects.actSearchExecute(Sender: TObject);
begin
with dsProjects.DataSet do
begin
Filtered := False;
Filtered := True;
end;

работает только по одному полю

а надо чтоб работала комбинация тоже


procedure TfLocalProjects.cdsProjectsFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin


// куски фильтрации по одному полю

With GroupBox4 do begin

If (rbClient.Checked)
and (rbProjCode.Checked =False)
and (rbName.Checked =False)
and (rbSite.Checked =False)
then
Accept := Pos(LowerCase(eClientCode.text), LowerCase(dsProjects.Dataset.fieldbyname('ClientCode').asstring))>0;


If (rbProjCode.Checked)
and (rbClient.Checked =False)
and (rbName.Checked =False)
and (rbSite.Checked =False)
then
Accept := Pos(LowerCase(eByProjCode.text), LowerCase(dsProjects.Dataset.fieldbyname('ProjOrder').asstring))>0;

If (rbClient.Checked=False)
and (rbProjCode.Checked =False)
and (rbName.Checked)
and (rbSite.Checked =False)
then
Accept := Pos(LowerCase(eByNameFind.text), LowerCase(dsProjects.Dataset.fieldbyname('title').asstring))>0 ;

If (rbClient.Checked =False)
and (rbProjCode.Checked =False)
and (rbName.Checked =False)
and (rbSite.Checked)
then
Accept := Pos(LowerCase(eSite.text), LowerCase(dsProjects.Dataset.fieldbyname('Region').asstring))>0 ;


//а тут хотелось чтоб совместный сработал - но не судьба
If (rbClient.Checked)
and (rbProjCode.Checked)
and (rbName.Checked=False)
and (rbSite.Checked= False)
then Accept :=((Pos(LowerCase(eClientCode.text), LowerCase(dsProjects.Dataset.fieldbyname('ClientCode').asstring))>0) and (Pos(LowerCase(eByProjCode.text), LowerCase(dsProjects.Dataset.fieldbyname('ProjOrder').asstring))> 0));

// и так далее я уже не привожу все остальные комбинации
// хотя бы добиться чтоб такой вариант сработал



end;

окей буду пробовать спасибо
----------------

у меня работают только первые 4 куска взаимоисключающие

если введен клиент, то фильтр только по нему должен быть
если введен кодпроекта, то фильтр только по нему должен быть
если введен имя проекта, то фильтр только по нему должен быть
если введен регион, то фильтр только по нему должен быть

а последний кусок я в качестве примера привел как хотелось бы чтоб работало
он не работает почему-то
(а о таком вариант как accept=accept and (.....) я даже не думал)

если введен и клиент и код проекта

а затем сочетания разные (все комбинации, их немного)

в общем все варианты такие
1
2
3
4

1,2
1,3
1,4

2,3
2,4
3,4

1,2,3
1,2,4
1,3,4

2,3,4

1,2,3,4 максимальный фильтр

дык я ж пишу

"у меня работают только первые 4 куска взаимоисключающие "

а последний кусок когда два TEdita заполнены и использоваться должны оба

"а последний кусок я в качестве примера привел как хотелось бы чтоб работало не работает почему-то "

не работает

оказывается все у меня работает

просто я в качестве флагов использовал RadioButtons статус

а они взаимосисключающие, если сидят в groupbox

убрал их нафиг и просто проверяю

If (eClient.Text <> '')
and (eProject.Text = '')
and (eName.Text <> '')
and (eSite.Text = '')
then Accept:=
(Pos(.....) > 0) and (Pos()>0);