Fórum Se string é uma data válida #168820
10/07/2003
0
Como posso saber se o valor digitado em string é uma data válida, sem que o delphi retorne sua própria mensagem de erro. Pois utilizei o seguinte código:
function tbStrIsDate(const S: string): boolean;
begin
try
StrToDate(S);
Result := true;
except
Result := false;
end;
end;
if tbStrIsDate(Edit1.Text) then
ShowMessage(Edit1.Text + ´ é data válida.´)
else
ShowMessage(Edit1.Text + ´ NÃO é data válida.´);
Porém o delphi continua exibindo uma mensagem de erro antes da minha.
Obrigado.
function tbStrIsDate(const S: string): boolean;
begin
try
StrToDate(S);
Result := true;
except
Result := false;
end;
end;
if tbStrIsDate(Edit1.Text) then
ShowMessage(Edit1.Text + ´ é data válida.´)
else
ShowMessage(Edit1.Text + ´ NÃO é data válida.´);
Porém o delphi continua exibindo uma mensagem de erro antes da minha.
Obrigado.
Mineiro
Curtir tópico
+ 0
Responder
Posts
10/07/2003
Ivonei
Creio que você terá que fazer esta verificação dentro de um try except.
Responder
Gostei + 0
10/07/2003
Alessandro
Experimente o seguinte código:
try
StrToDate(MeData.Text);
except
on EconvertError do
begin
MessageDlg(Medata.Text+´ é uma data inválida!´,mtError,[mbOk],0);
end;
end;
Onde MeData é um MaskEdit, mas pode ser um Edit, ou caption de um panel, ou ....
É isso.
Alessandro
:)
try
StrToDate(MeData.Text);
except
on EconvertError do
begin
MessageDlg(Medata.Text+´ é uma data inválida!´,mtError,[mbOk],0);
end;
end;
Onde MeData é um MaskEdit, mas pode ser um Edit, ou caption de um panel, ou ....
É isso.
Alessandro
:)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)