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

[Страдалецъ]

Так попробуйте:

Код:

DataModule1.ADOTable1.Filter:='f1 like ''%'+Edit1.Text+'%''';

[Red_Garry]

Попробовал и в ответ вижу сообщение:
"Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом".

[Страдалецъ]

f1 у вас строковое?

[Страдалецъ]

Ну а так?

Код:

procedure TForma1.Edit1Change(Sender: TObject);
begin
if Edit1.Text = '' then Exit;
 DataModule1.AdoTable1.Filter := Format('[f1] like ''%%%s%%''',[Edit1.Text]);
 DataModule1.AdoTable1.Filtered := True;
end;

[Red_Garry]

спасибо, так работает, но выводит все строки с включением подстроки, а мне нужно только те, которые сначала. Как поправить?

[Red_Garry]

Код:

if Edit1.Text = '' then Exit;
  DataModule1.AdoTable1.Filter := Format('[f1] like '+#39+'%s%%'+#39, [Edit1.Text]);
  DataModule1.AdoTable1.Filtered := True;

Вот так работает! Спасибо за помощь!

[Voron]

Попробуй использовать ADOQuery. Средствами SQL это очень легко реализовать используя примерно такую конструкцию

Код:

'select * from <table>  where <поле>='+Edit1.text

[Red_Garry]

спасибо, попробую