Não funciona meu IF
Fiz esse IF para não validar datas vazias e não está funcionando, ou seja, mesmo com os Maskedits vazios ele entra no IF quando não deveria fazê-lo.
if ((edtIni.Text <> ´´)or(edtIni.Text <> ´ / / ´)) and
((edtFim.Text <> ´´)or(edtFim.Text <> ´ / / ´)) then
Meus códigos aqui.....
Paulo
Curtidas 0
Respostas
Mazzi
21/08/2008
Vc ja tentou ver o que retornar se vc testar como Null ?
Ou se vem do banco de dados , tente testar o que vem do banco ou o que vai pra o banco de dados, ex:
if tbcampoData.asDate is null then
...
...
algo do tipo?
Ou se vem do banco de dados , tente testar o que vem do banco ou o que vai pra o banco de dados, ex:
if tbcampoData.asDate is null then
...
...
algo do tipo?
GOSTEI 0
Paulo
21/08/2008
mazzi, não é banco. É colocado na mão mesmo. Estou testando é consistência, para tratar erros de usuários. É só um maskedit, mascarado para receber uma Data. Precio validar para não permitir data inválidas, vazias, data final menor que a inicial, esse tipo de coisas e não está acontecendo quando eu não digito nada, ou seja, não deveria entrar no IF e está.
GOSTEI 0
Paulo
21/08/2008
Resolvi. Como estou usando Maskedit, não foi preciso usar o edtIni.Text <> ´ ´ e ide para o edtFim. Retirei e funcionou.
GOSTEI 0
Sremulador
21/08/2008
if ((edtIni.Text <> emptystr)or(edtIni.Text <> ´__/__/____ ´)) and ((edtFim.Text <> emptystr)or(edtFim.Text <> ´ / / ´)) then Meus códigos aqui.....
os edits com mascaras o que defini de o caractere da mascara vai ou não e o ;0; - ;1;
GOSTEI 0
Fknyght
21/08/2008
if (edtIni.Text <> ´´)or(edtIni.Text <> ´ / / ´) or
(edtFim.Text <> ´´)or(edtFim.Text <> ´ / / ´) then
acho que seu problema e o AND
tenta ai
(edtFim.Text <> ´´)or(edtFim.Text <> ´ / / ´) then
acho que seu problema e o AND
tenta ai
GOSTEI 0