Фильтрация

[Gora]

Здравствуйте уважаемые.
Ситуация такая: база данных 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 = edit1.Text) 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;
 
Все работает как часы. Хочется узнать мнение по поводу алгоритма, оптимизации, может есть другой способ.

[Sla]

Gora, оформи код тегами [code] [/code]
У тебя два вопроса
Как отследить
И все работает. Как оптимизировать?

Какой важней? Второй противоречит первому.

[Gora]

Ничего не противоречит.
Этот код работает т.е. все фильтруется, и нужно отловить момент когда искомые данные не найдены в этом основная суть вопроса.
Да в строчке  if (FieldVal = edit1.Text) then b:=true else b:=false; после FieldVal и  edit1.Text не хватает квадратных скобок и переменной i в средине. Ошибка не моя, форум не пропустил.

[Gora]

Код:

 
            if table1.RecordCount = 0 then  ....      

Всем спасибо, все свободны.

[Алексей++]

Gora, ой, спасибо за разрешение! ))) А ты невнимательный - обернул бы код в теги, "форум бы пропустил"

[Gora]

Ну колкости говорить мы все умеем ....
А вот еще один способ

Код:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
   Accept := pos(Edit1.text, DataSet[COMBOBOX1.Text])<>0;
end;

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

 А может кому и сгодится ...
Люди только тогда сообщают нам интересные сведения, когда мы им противоречим. Джордж Бернард Шоу

[Алексей++]

Gora, да Боженька упаси колкости говорить Ну вот если бы лично я знал ответ на вопрос - я бы первый и ответил.
Только я не дельфист

[Gora]

Нашел статейку по этой теме     Фильтрация данных в Delphi