Validar / Criticar datas Lazarus

O Lazarus (Free Dephi) tem um componente  maskedit que permite formatar a entrada de valores por exemplo datas.
Após a entrada dos dados digitados podemos criticar / validar a entrada com o seguinte código, colocado no evento “exit” :

procedure TfrmPrincipal.mskDataiExit(Sender: TObject);
var Datai : TDateTime;
begin

try
Datai := StrToDateTime(mskDatai.Text);
mskDatai.Text := FormatDateTime(‘dd/mm/yyyy’,Datai);
except
ShowMessage(‘Data Inválida’);
mskDatai.Text := ‘  /  /    ‘;
mskDatai.SetFocus;
end;

end;

Sobre Carlos Susviela

Programador WebDeveloper (Sistemas e páginas internet) Técnico Informática --------------------------- Torcedor: S.C. Internacional / RS / Brasil
Esse post foi publicado em Computadores e a Internet. Bookmark o link permanente.

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