[Red_Garry]

Здравствуйте!

Код:

1 2 3 4 5 6 7 8

procedure TForma1.Edit1Change(Sender: TObject); begin     if Length(Edit1.Text)>0 then        DataModule1.ADOTable1.Filtered:=true    else        DataModule1.ADOTable1.Filtered:=false;        DataModule1.ADOTable1.Filter:='f1>'''+Edit1.Text+''''; end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!

Хотелось бы, чтобы при изменении значения Edit1.Text, включался фильтр для ADOTable1 для поля f1. Т.е. чтобы в DBGrid попадали записи, в которых поле f1 начинается с текста в Edit1. При этом по мере набора текста в Edit1 отфильтровывалось ненужное. Указанная процедура компилится, но результата нет - ненужное не отбрасывается.
Помогите пожалуйста!