Validar uma data(deixando passar data em branco)
10/03/2003
0
Em tenho um dbedit ligado com a tabela e quero que quando eu sair do dbedit ele valide essa data se for uma data invalida aparecer essa mensa gem ´Data invalida´ e dar um setfocus no edit.... caso deixe a data em branco ele aceite sair do campo!!!!
Usando esse procedimento eu consigo validar a data, ele deixa o usuario passar pelo campo sem digitar mas se o usuario digitar a data e apagar e tentar sai ele da uma mensagem de erro!!!!
if not TbVeiculos.FieldByName(´DT_VENC_APOL´).isnull then
begin
try
strtodate(DBEdit9.text);
except
on EConvertError do
begin
showmessage(´Data Inválida´);
dbedit9.SetFocus;
end;
end;
end;
O que eu faço para ele aceitar a data em branco quando o usuario digitar a data apagar e sair!!!
agradeço!!!!!
Leandro Jacomete
Posts
10/03/2003
Okama
strtodate(DBEdit9.text);
except
on EConvertError do
begin
[b:c1d6a1fd05]if DBEdit9.text <> ´´ then begin[/b:c1d6a1fd05]
showmessage(´Data Inválida´);
dbedit9.SetFocus;
[b:c1d6a1fd05]end;[/b:c1d6a1fd05]
end;
end;
10/03/2003
Leandro Jacomete
se eu naum usar um if logo que sair do campo ele naum vai deixar nem passar pelo campo, e vc me coloca um strtodate(DBEdit9.text); logo quando eu saio do campo ele vai dar a mensagem de erro padrao do delphi.... nem vai entrar na try exception
10/03/2003
Marcelo Saviski
tente assim[/b:9e5b12b686][/color:9e5b12b686]
if not TbVeiculos.FieldByName(´DT_VENC_APOL´).isnull then begin try if DBEdit9.text <> ´´ then strtodate(DBEdit9.text); except on EConvertError do begin showmessage(´Data Inválida´); dbedit9.SetFocus; end; end; end;
10/03/2003
Leandro Jacomete
[quote:93026dac23=´Marcelo Saviski´][color=brown:93026dac23][b:93026dac23]mudei um pouco o código
tente assim[/b:93026dac23][/color:93026dac23]
if not TbVeiculos.FieldByName(´DT_VENC_APOL´).isnull then begin try if DBEdit9.text <> ´´ then strtodate(DBEdit9.text); except on EConvertError do begin showmessage(´Data Inválida´); dbedit9.SetFocus; end; end; end;
Clique aqui para fazer login e interagir na Comunidade :)