Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Фильтрация данных в TADOTable по маске

Автор: Andrewshkovskii 25.04.2009 23:49

Вот такая проблема у меня встала. пробую по таблице делать так :

procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='(Название like ''%' +Form1.Edit1.Text+'%'')';
ADOTable1.Filtered:=true;
ADOTable1.Refresh;
end;


Edit1 - текстэдит поле, куда вводиться шаблон фильтра. Только такой способ, который я использую, не приводит к успехуsmile.gif) Как это можно правильно реализовать?

Автор: volvo 26.04.2009 2:24

Попробовал так:

DBGrid1.DataSource.DataSet.Filter := 'Название LIKE ''*' +Form1.Edit1.Text + '*''';
, фильтр срабатывает: в DBGrid-е остаются только те записи, которые в указанном поле содержат введенную в Edit1 последовательность символов, причем неважно где, главное - подряд... Попробуй...