Uma obrigação que todo programador deve ter é a validação de alguns campos na tela.
Vamos agora validar um campo DATA.
Evento Change (só para acrescentar as barras que separam o dia do mês e o mês do ano.
var vdata:string;
begin
if length(edit5.Text) = 8 then
begin
vdata:=edit5.Text;
insert('/',vdata,3);
insert('/',vdata,6);
edit5.Text:=vdata;
end;
end;
Lógica:
Você digitará apenas os números da data e o código formatará para você, acrescentando as barras.
Evento OnExit (Agora vamos validar a data)
begin
try
StrToDate(Edit5.Text);
except
on EConvertError do
begin
ShowMessage ('Data Inválida!');
edit5.Clear;
edit5.SetFocus;
end;
end;
end;
Obs: Isso só roda no executável fora do delphi (compile e rode). Para isto, basta dar o F9, sair do programa, ir na pasta onde o projeto está salvo e rodar o aplicativo.
Abraços
Titio Trevas
quinta-feira, 16 de setembro de 2010
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário