Показать сообщение отдельно
  #30  
Старый 22.10.2013, 21:19
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Очевидно так:
Код:
select *
from post_plat
where (post_plat.razneseno = :razneseno) or (-1 = :razneseno)
 
if CheckBox1.Checked = true then
ParamByName('razneseno').AsInteger := 1
else
ParamByName('razneseno').AsInteger := -1

-1 на тот случай, если 0 все же как-то учитывается
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием