[SegaBogd]

Подскажите пожалуйста! Нужно сделать фильтр по Edit и двум Combobox. Всё уже перелопатил. Вот последний вариант

Код:

procedure Trab.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var FieldVal,FieldVal1, FieldVal2:string;
begin
FieldVal := DataSet['Заводской_номер'];
Accept := copy(FieldVal, 1, length(edit1.text)) = edit1.Text;
FieldVal1 := DataSet['Наименование_СИ'];
Accept := copy(FieldVal1, 1, length(combobox1.text)) = combobox1.Text;
FieldVal2 := DataSet['Цех'];
Accept := copy(FieldVal2, 1, length(combobox2.text)) = combobox2.Text;
end;

[poli-smen]

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

Подскажите пожалуйста! Нужно сделать фильтр по Edit и двум Combobox. Всё уже перелопатил. Вот последний вариант

Тебе нужно соединять условия операцией and.
Схематично вот так:

Код:

.....
Accept := copy(.....) = edit1.Text;
....
Accept := Accept and (copy(.....) = combobox1.Text);
.....
Accept := Accept and (copy(.....) = combobox2.Text);
.....

Или через проверку условий вот так:

Код:

.....
Accept := copy(.....) = edit1.Text;
if Accept then
begin
  .....
  Accept := copy(.....) = combobox1.Text;
  if Accept then
    .....
    Accept := copy(.....) = combobox2.Text;
  end;
end;

[SegaBogd]

Спасибо большое истина была близка!!!