Validar Data - Na convers�o da erro...

Question

� to intendendo...Tenho esse codigo no onexit do MaskEdit1try   :arrow: StrToDate(MaskEdit1.Text);excepton EConvertError do  ShowMessage (�Data Inv�lida!�);Mas qdo digito por exemplo: 12/13/03 na conv...

Luizfernando777 · Answer

experimente issovarcont : integer;begin   if (Sender is TMaskEdit) then     begin        cont := Length( Trim( (Sender as TMaskEdit).Text ) );        try           if (Sender as TMaskEdit).Text = �  /  /    � then              begin              exit;              end      else if cont <= 7 then              begin              (Sender as TMaskEdit).Clear;              exit;              end        else           begin           (Sender as TMaskEdit).Text := DateToStr(StrtoDate((Sender as TMaskEdit).Text));           end;        except           on Exception do              (Sender as TMaskEdit).SetFocus;        end;     end;end;...

Educdc · Answer

:arrow: (Sender as TMaskEdit).Text := DateToStr(StrtoDate((Sender as TMaskEdit).Text));Da erro nessa convers�o......

Luizfernando777 · Answer

estranho,aqui no meu projeto funcionatanto que testei novamente...

Educdc · Answer

qdo vc digita uma data inv�lida o q acontece?...

Luizfernando777 · Answer

ele n�o sai do MaskEdite a� o q acontece...

Educdc · Answer

:arrow: ta dando esse erro:Projec Project1.exe raised exception class EConvertErro with message �12/13/03� is not a valid date�. Process sotpped. Use Step or Run to continue....

Luizfernando777 · Answer

Manda o projeto exemplo para mim,sem o executavel,no meu emailluizfernando777@yahoo.com.br...

Educdc · Answer

kbei de mandar o mail...da uma olhada la!!...

Luizfernando777 · Answer

experimenta executar oseu projeto n�o pelo delphi,mas sim pelo explorer,n�o vai aparecer esse erro.� que o debug do delphi pega issoe passa a informa��o para voc�...

Educdc · Answer

eh pelo explorer deu certo! Entao este erro vai sempre aparecer enquanto eu estiver testando o programa? so depois de eu instalar tudo q some? aff!!...

Japa · Answer

Amigo eu tambem tive esse problema e resolvi com esse codigo que consegui fazer:

data:= StrToDateDef(MaskEdit.Text, Date); if not (TryStrToDate(MaskEdit.Text, data)) then begin MessageDlg(� Data invalida.�, mtError, [mbOK], 0); MaskEdit.Text:= DateToStr(data); end;

Ahh sim declare uma variavel local:

var data: TDateTime;

Bom eu decidi colocar a data do dia quando da o erro.. mas voce pode dar um SetFocus por exemplo... Ahhh sim coloque esse codigo no onexit de seu maskedit...

Boa sorte amigo... :wink:

Jeancamila · Answer

Para ver o exemplo em tempo de execu��o pelo delphi � s� configura-lo para isso:
Clicar em menu tools | Debugger options

Clicar na guia language exceptions e desmarcar o check box �stop on delphi exceptions�

F�rum Validar Data - Na convers�o da erro... #185439