Validar a data em um tField

Olá!

Muitas vezes temos problemas com a validação de datas em campos TField,

vai uma dica de como validar a data no evento onSetText do campo..

Faça:

Código:
procedure TForm1.Table1NomeCampoSetText(Sender: TField);
begin
  try
    sender.Value:=strtodate(Text);
  except
   on E:Exception do
     begin
       // showmessage(‘Data inválida’);  pode colocar mensagem ou não
       // sender.value:= se quiser corrija para un numero válido ou
      //sender.text := ” ;  se aceitar
     end;
end;
end;

 

 

Retirado do Forum:

http://forum.devmedia.com.br/viewtopic.php?p=206981&sid=7873bba192be0290e09d3cf239667459

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s