Filtro Com Checkbox

[Kindelis]

é o seguinte .... eu quero criar uma espécie de filtro onde a pessoa seleciona o campo que ela quer inclui na pesquiza através de checkbox eu fiz código assim:

var aspa:string;

begin

aspa:='''';

if cksol.Checked:=true then

begin

zquery1.SQL.Add('where solicitante=' +aspa+edit1.Text+aspa+'');

end;

if ckres.checked:=true then

begin

zquery1.SQL.add('where responsavel=' +aspa+edit2.Text+aspa+'');

end;

só que quando eu mando executar o delphi acusa q o comando then não é uma expressão booleana que deve ser utilizada uma expressão booleana .... como resolvo isto?

[Graymalkin]

Você está utilizando o sinal de atribuição (:=) onde deveria ser o de comparação (=):

if cksol.Checked:=true then

if ckres.Checked:=true then

Sendo que ambas podem ser escritas da seguinte maneira:

...
if cksol.Checked then
...
if ckres.Checked then
...

Uma vez que a intenção é evoluir a expressão para verdadeiro ou falso, e o valor de Checked só pode ser ou verdadeiro ou falso, não existe a necessidade de fazer a comparação.

Certo?

Graymalkin