Mensagem de Data Inválida

Delphi

25/03/2004

E aí galera, estou necessitando da ajuda de vcs...

Estou iniciando em delphi com interbase, e estou com um problema, quando coloco uma data inválida em componente DbEdit, pois já coloquei várias funções no onexit do respectivo componente, e ele sempre retorna a mensagem defalt do delphi ´ ´25/25/2004´ is not a valid date.´. Espero q possam me ajudar, pois todo lugar q procuro só encontro a função a seguir, q só funciona com maskedit ou edit, mesmo...


procedure TFCadCli.DbDt_nascExit(Sender: TObject);
begin
try
StrToDate(DbDt_nasc.Text);
except
on EConvertError do
ShowMessage (´Data Inválida!´);
end;
end;


Agradeço, desde já.... :?:


Camussica

Camussica

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

25/03/2004

Tente assim:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := ManipulaExcecoes;
end;

procedure TForm1.ManipulaExcecoes(Sender: TObject; E: Exception);
begin
   if Pos(´date´, E.Message) > 0 then
      ShowMessage (´Data Inválida!´)
   else
     MessageDlg(E.Message, mtError, [mbOK], 0);
end;


Não é a melhor dica, mas resolve o problema.


GOSTEI 0
POSTAR