[Red_Garry]

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

Код:

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 отфильтровывалось ненужное. Указанная процедура компилится, но результата нет - ненужное не отбрасывается.
Помогите пожалуйста!