Фильтр по полям

[Sfera]

Здравствуйте! помогите разобраться с одним вопросом.
Есть база данных в которой есть 4 поля. Нужно сделать фильтр так, чтоб я не по одному полю фильтровала, а сразу по нескольким полям.
Использую: CheckBox - для кажного поля, Edit и Button.
вот мой текущий код:

procedure TForm1.Button2Click(Sender: TObject);
begin
if   CheckBox4.Checked then
         begin
           Table1.Filter:='Codecar='+QuotedStr(Edit6.Text);
          end ;
         if   CheckBox5.Checked then
          begin
           Table1.Filter:='Colorcar='+QuotedStr(Edit2.Text);
          end  ;
          if   CheckBox6.Checked then
           begin
           Table1.Filter:='Year='+QuotedStr(Edit7.Text);
             end ;
         if   CheckBox7.Checked then
         begin
         Table1.Filter:='Codeowner='+QuotedStr(Edit5.Text);
         end;
         Table1.Filtered:=true;
end;

Что не правильно в моем коде, и почему он фильтрует только по последнему условию (то есть, ставлю codecar=5 и colorcar=черный, он мне отображает все черные).

[Stilet]

Подход неправильный.

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filter:='';
 if   CheckBox4.Checked then begin
    Table1.Filter:=Table1.Filter+' Codecar='+QuotedStr(Edit6.Text);
 end ;
  if   CheckBox5.Checked then
   begin
    if Table1.Filter<>'' then Table1.Filter:=Table1.Filter+' AND ';
    Table1.Filter:=Table1.Filter+' Colorcar='+QuotedStr(Edit2.Text);
   end  ;
          if   CheckBox6.Checked then
           begin
    if Table1.Filter<>'' then Table1.Filter:=Table1.Filter+' AND ';
           Table1.Filter:=Table1.Filter+' Year='+QuotedStr(Edit7.Text);
             end ;
         if   CheckBox7.Checked then
         begin
    if Table1.Filter<>'' then Table1.Filter:=Table1.Filter+' AND ';
         Table1.Filter:=Table1.Filter+' Codeowner='+QuotedStr(Edit5.Text);
         end;
         Table1.Filtered:=true;
end;

[Sfera]

Чего-то он не работает. я его запускаю, он мне ошибку выдает. только по отдельности он фильтрует.

[Stilet]

Чего-то он не работает

А почему меня работает?

я его запускаю, он мне ошибку выдает

Не вижу ошибки.

[Dimasw]

А я бы предложил другой код:

procedure TForm1.Button2Click(Sender: TObject);
var
a,a1,a2,a3,a4:string;
begin
if checkbox4.Checked then
a1:=' AND CodeCar='+QuotedStr(Edit6.Text) else a1:='';

if checkbox5.Checked then
a2:=' AND ColorCar='+QuotedStr(Edit2.Text) else a2:='';

if checkbox6.Checked then
a3:=' AND Year='+QuotedStr(Edit7.Text) else a3:='';

if checkbox7.Checked then
a4:=' AND Codeowner='+QuotedStr(Edit5.Text) else a4:='';

a:=a1+a2+a3+a4;
if length(a)>0 then a:=copy(a,6,100);

table1.Filter:=a;
table1.Filtered:=true;
end;

end.

Стараюсь избегать вложенных if, чтобы проще читать код

[Sfera]

Сообщение от Dimasw

А я бы предложил другой код

О спасибочки большое за помощь, очень благодарна =)

[Grag]

А я бы еще предложил перед установкой фильтра сделать
Table1.Filtered:=false;
а уж потом
Table1.Filter:=.....;
Table1.Filtered:=true;