Erro ao sair do MaskEdit

Question

No meu projeto tenho um MaskEdit que abre com a data do dia. Quando o usuario vai pesquisar por nome e n�o pela data, ao apagar a data do campo e sair aparece o seguinte erro: /  /   is not a vali...

Natanael Ferreira · Accepted Answer

Fa�a um teste alterando seu c�digo para:[code]{ Data }  if MaskEdit1.Text <>   /  /     then  begin    SQLConsultaAgendamento.SQL[19] :=  and a.data_radiografia = : data ;    SQLConsul...

Robson Morais · Answer

voc� faz alguma valida��o no exit do campo ? ou a tem alguma informa��o (espa�o ou outro caracter) no campo da data ?
Porque uso aqui e n�o tenho esse problema, o que pode fazer tamb�m caso n�o descubra � colocar um codigo assim no exit do campo:

if (data.text = ' / / ') then exit;

acho que n�o vai dar mais o erro;

Deise Souza · Answer

No OnExit do MaskEdit n�o coloquei nada. Tem uma parte do c�digo no campo data para consulta no banco, com o seguinte c�digo:

if MaskEdit1.Text <> '' / /'' then
begin
SQLConsultaAgendamento.SQL[19] := '' and a.data_radiografia = :data '';
SQLConsultaAgendamento.ParamByName(''DATA'').AsDate :=
StrToDate(MaskEdit1.Text);
end
else
begin
SQLConsultaAgendamento.SQL[19] := '' /* sql dinamico */ '';
end;

Testei esse que vc falou e continua dando o mesmo erro

Robson Morais · Answer

Post o seu codigo, porque estou testando aqui e n�o estou capturando esse erro;...

Deise Souza · Answer

Deu certo, o que estava errado, � que na data estava faltando dois espa�os no final (  /  /    ), pq o ano � com os 4 digitos e s� estava o espa�o para dois. Muito obrigada pela aten��o....

Robson Morais · Answer

denada....

F�rum Erro ao sair do MaskEdit #581179