Se string é uma data válida
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
Curtidas 0
Respostas
Ivonei
10/07/2003
Creio que você terá que fazer esta verificação dentro de um try except.
GOSTEI 0
Alessandro
10/07/2003
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
:)
GOSTEI 0