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. -- <<<<< 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
