Murillo voce tem que fazer a verificação no evento OnSetText do campo. E a
mascara tem que estar como 99/99/9999;1;_ e não como 00/00/0000;1;_
Por exemplo:
if frm_funcionarios.DBEdit3.Text <> ' / / ' then
begin
try
data_module.tb_funcionariosF_DATANASC.Value := StrToDate( Text );
except on EConvertError do
begin
showmessage('Data inválida');
abort;
end;
end;
end
else
data_module.tb_funcionariosF_DATANASC.Clear;
Espero ter ajudado
[]´s
ARP
----- Original Message -----
From: "Murillo Proença" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, June 28, 2005 4:51 PM
Subject: [delphi-br] Excluir conteudo data de um dbedit
Boa tarde,
estou querendo excluir o conteudo de um TDBEdit que contém uma data
quando está focado, já tentei dar Clear no componente, Clear no
conteudo do TField mas dá erro de valor inválido.
O TField ligado a ele está com máscara de data 99/99/9999;1;_
Valeu
Murillo Proença
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
