Цитата:
|
Сообщение от lmikle
Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять:
Код:
procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;
Код только на точное сравнение и не разбирает типы данных - это только пример. |
Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ?