Buscar por:

Validando datas no dbedit

Código

  Olá pessoas, eu tive uma certa dificuldade para validar datas no DBEdit, no  entanto com um pouco de luta desatei esse nó e gostaria de compartilhá-lo com a comunidade. Bem, vamos ao exemplo:

    uma sql possui os seguintes campos

     codigo integer, descricao varchar(50), DataCadastro Timestamp.

     No delphi preciso validar o campo data que deverá esta ligado a um DBedit. No evento OnSetText do datafield executo o seguinte codigo:

procedure TfrmdataTeste.sqlTesteDataCadastroSetText(Sender: TField; const Text: String);

begin

   try

      sender.Value:=strtodate(Text);

  except

      showmessage('Data inválida, digite novamente !');

      exit;

end;

end; 

     Bem, essa é a dica espero que ajude a quem precise.

  Abraços!!!!!!