»»» Validar Datas (Que Funcione) (PLEASSEEEEE)
11/02/2003
0
:arrow: É o seguinte estou com sério problema ao tentar validar datas, pois mesmo eu fazendo a validação no evento OnExit.
:arrow: Quando eu rodo a aplicação através do Delphi 6, e digito uma data inválida, aparece aquela chata mensagem de erro do Delphi, enquanto deveria somente limpar o campo e retornar o foco pra ele!
Como eu poderia resolver esse problema?
Muito obrigado, :)
Jorge.
:arrow: Quando eu rodo a aplicação através do Delphi 6, e digito uma data inválida, aparece aquela chata mensagem de erro do Delphi, enquanto deveria somente limpar o campo e retornar o foco pra ele!
Como eu poderia resolver esse problema?
Muito obrigado, :)
Jorge.
Anonymous
Curtir tópico
+ 0
Responder
Posts
11/02/2003
Db
no evento OnExit coloque:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (Sender as TEdit).Text = ´´ then Exit;
try
with (Sender as TEdit) do
Text := DateToStr(StrToDate(Text));
except
Application.MessageBox(´Data inválida´,´Erro´,mb_iconerror+mb_ok);
(Sender as TEdit).SetFocus;
end;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (Sender as TEdit).Text = ´´ then Exit;
try
with (Sender as TEdit) do
Text := DateToStr(StrToDate(Text));
except
Application.MessageBox(´Data inválida´,´Erro´,mb_iconerror+mb_ok);
(Sender as TEdit).SetFocus;
end;
end;
Responder
11/02/2003
Anonymous
Vc pode fazer assim:
Crie uma função e chame-a no evento OnExit:
Function TForm1.ValidaData : boolean;
begin
try
edit1.text := formatdatetime(´dd/mm/yyyy´,StrToDate(edit1.text));
except
on e: ECONVERTERROR do
begin
SysUtils.Abort;
ShowMessage(´Data inválida.´)
edit1.setfocus;
end;
end;
end;
Crie uma função e chame-a no evento OnExit:
Function TForm1.ValidaData : boolean;
begin
try
edit1.text := formatdatetime(´dd/mm/yyyy´,StrToDate(edit1.text));
except
on e: ECONVERTERROR do
begin
SysUtils.Abort;
ShowMessage(´Data inválida.´)
edit1.setfocus;
end;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
