[Yurk@]

Доброго времени суток ... столкнулся вот с такой проблемой:
есть БД на Firebird ... выбираю данные из базы с помощью запроса (IBQuery) ... кроме этого мне нужно организовать поиск по выбраным записям с максимальной скоростью ... раньше (в локальных БД) для этой цели делал Filter и этого было вполне достаточно ... в IBQuery эта функция почему-то не работает. Пробовал сделать через OnFilterRecord, но там запись находится только при полном написании введенного значени, а мне нужно чтобы записи фильтровались при каждом нажатии буквы.
Может кто-то подскажет как мне обойти эту проблему

P.S. Компоненты FIBPlus не предлагать

[lmikle]

Код обраболтчика события сюда выложи.

[Yurk@]

Для Firebird\Interbase делаю так:

Код:

procedure TForm1.QFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:=(Q.FieldByName('SPEC').AsString='строка');
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Q.Filtered:=True;
end;

Q - это IBQuery.

Для локальной БД раньше делал так:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
eQuery.Filter:='Icrtf_sht_num = '''+Ed_Pak.Text+'*''';
eQuery.Filtered:=True;
end;

Для IBQuery такая обработка почему-то не подходит и записи он не фильтрирует ... а нужно чтобы он это делал по принципу аналогичному как для локальной БД

[lmikle]

ага, а самому сравнивать по частям слабо?

Код:

procedure TForm1.QFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  // Начинается с...  
  Accept:= Pos(Edit1.Text,DataSet.FieldByName('SPEC').AsString) = 1;
end;

[Yurk@]

пасибо ... я был так близок к ответу:

Код:

 Accept:= Pos(Edit1.Text,DataSet.FieldByName('SPEC').AsString) <> 0; 

слегка "не докопал"