Olá Marcelo.... desculpe mas não sei como fazer isso (sou meio novata)... vc poderia me explicar como faço para a mensagem de erro (exceção) não aparecer?? Obrigadão!!!
Marcelo Almeida <[EMAIL PROTECTED]> wrote: Erika Lemes wrote: >Estou usando este código: >function tbStrIsDate(const S: string): boolean; >begin >try > StrToDate(S); > Result := true; >except > Result := false; >end; > >end;Para chamar: >if tbStrIsDate(Edit1.Text) then > ShowMessage(Edit1.Text + ' é data válida.') >else > ShowMessage(Edit1.Text + ' NÃO é data válida.'); > >Porém ele dá erro quando a data é inválida! O que eu faço??? > > Isto não é erro, é excessão e o debugger do delphi para em toda excessão. Se vc mandar o debugger continuar, ou rodar o programa de fora do delphi, vai funcionar sem problemas. __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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