Olá Isto funciona só quando há certeza dos 4 digitos na data...é melhor usar
if trim(Text) = '/ /' then Se usar o DateEdit do RX ou o JvDateEdit tem uma propriedade para testar a data ao sair da edição....funciona... Atenciosamente Oswaldo dos Santos Araujo On 28 Jan 2005 at 13:09, Eduardo Silva ® wrote: > > Para limpar a data e, por exemplo, desistir da data que foi digitada, > abra o fieldseditor da sua tabela, selecione o campo data e no evento > OnSettext digite > > if Text = ' / / ' then > Sender.asString := '' > else > Sender.asString := Text; > > Para a mensagem de erro vc usa a função abaixo: > > function TestaData(Data: string): Boolean; > begin > try > StrToDate(Data); > Result := True; > except > Result := False; > Messagebox(application.handle,'Data inválida !','Erro',MB_OK or > MB_ICONERROR); > SetActiveWindow(Application.handle); > end; > end; > > > > -----Mensagem original----- > De: Trama Paulista .:sites .:sistemas > [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 28 de janeiro de 2005 12:01 > Para: Delphi - BR > Assunto: [delphi-br] TESTE DE DATA > > > Pessoal, > > Tenho um form com um campo data com máscara 99/99/9999. Entretanto, > se for digitada uma data errada eme dá uma mensagem de erro e pede > para teclar escape para sair, coisa que qualquer usuário odeia. > > Gostaria de saber como fazer para evitar esta mensagem, ou seja, como > contornar esta situação, colocando eu mesmo uma mensagem de erro e > possibilitando a redigitação de uma data correta ou mesmo de limpar o > campo. > > Desde já, obrigado. > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05 -- <<<<< 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