Фильтрация

[Gorychev]

Здравствуйте уважаемые.
Ситуация такая: база данных Paradox, на форме классическая связка DBGrid, DataSource, Table, также Combobox1 - содержит список всех полей таблицы, и Edit1 - поле для ввода данных которые пользователь надеется найти в базе.
Фильтрация таблицы происходит следующим образом: пользователь выбирает в Combobox1 поле для ф-ции, в Edit1 начинает набирать искомый текст - вводит первую буковку выводятся данные начинающиеся с этой буковки, вводит вторую - с 1 и 2й и т.д. пока не найдет полезное или ничего не найдет. Т.е DBGrid пустой, так вот как отследить этот момент.
Вот часть кода:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var FieldVal:string; i: integer; b: boolean;
begin

FieldVal := DataSet[COMBOBOX1.Text];
for i:=1 to length(edit1.text) do
begin
if (FieldVal[i] = edit1.Text[i]) then b:=true else b:=false;
if b=false then break;
end;
Accept := b;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.Filtered:=true;
end;

Все работает как часы. Хочется узнать мнение по поводу алгоритма, оптимизации, может есть другой способ.

[dron-s]

выбросить в топку TTable и использовать TQuery с SQL (Like)

[Gorychev]

Вообще то суть вопроса не в том. Нужна оценка конкретного кода, и ответ на вопрос <... т.е DBGrid пустой, так вот как отследить этот момент?>>

К чему такая спешка.

[Bor_Gus]

Я так понял тебе надо определить когда Grid становися пустой, можешь проверять количество записей в отфильтрованом DataSet...

[XPAiN]

например так: if table1.RecordCount<>0 then ...

[Gorychev]

Спасибо XPAIN все получилось

[Avalonix]

пишу фильтр

 DataModule1.TableMPO.Filtered:=False;
 DataModule1.TableMPO.Filter:='(mpo_ch='+EditCh.Text+') and (mpo_mes='+EditMes.Text+') and (mpo_god='+EditGod.Text+')';
 DataModule1.TableMPO.Filtered:=True;

не работает с ошибкой арифметические операции не поддерживаются.
Где у меня не правильно?

[Stilet]

Не вижу ничего криминального. Ты бы протрассировал бы по шагам и посмотрел бы.

[Avalonix]

Вот хоть тресни при запуске с таким фильтром пишет - Арифметические операции в выражении фильтра не поддерживаются..
Может можно иначе как то записать? Подскажите пожалуйста..

[Domovoy]

Возможно дело в кавычках