Показать сообщение отдельно
  #2  
Старый 09.06.2015, 16:46
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Сначала напишешь тему, опубликуешь, потом прочитал что написал, и появляется идея... Легкое гугление и вуаля:
Код:
if Length(Edit1.Text)>0 then begin
Form1.ADOQuery1.Filter:='user_name LIKE '+quotedstr('%'+Edit1.text+'%')+
' OR groups LIKE '+quotedstr('%'+Edit1.text+'%');
Form1.ADOQuery1.Filtered:=true;
end
else begin
Form1.ADOQuery1.Filter:='';
Form1.ADOQuery1.Filtered:=false;
end;
Так "мерцания" нет. А также нет надобности переименовывать columns после фильтрации. Единственное при закрытии формы (если она второстепенная, например для выбора чего-то) нужно очищать и выключать Filtered.
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием