valida��o de data

Question

Sou iniciante de delphi.Estou usando um dbgrid em um das celuda � dataIncial e outra dataFinal. Gostaria de quando o usu�rio digita-se data errada, por exemplo 31/02/2005. Emiti-se um msg de erro....

Jc_analista · Answer

[code:1:59f8f328f6]       try          strtodate(eddata.text);        except          showmessage(�Data Invalida�);        end;[/code:1:59f8f328f6]...

Atilio · Answer

ok, jc_analistamas e no dbGrid: qual o evento e coloco o codigo....

Jc_analista · Answer

onColexit[code:1:bb2445b16e]   if query1.fieldbyname(�data�).asdate>0 then  // verificando se j� digitou a data     begin           // coloca o codigo q eu te mandei antes     end;[/code:1:bb2445b16e]Acho q tem outra maneira, mas assim funciona....

Marcio.theis · Answer

Voc� tb pode usar o evento OnValidate do campo...

procedure TfrmTeste.qryDTDATAValidate(Sender: TField);
begin
if qry.FieldByName(�DTDATA�).AsDateTime > 0 then
    raise Exception.Create(�Data inv�lida !�);
end;

F�rum valida��o de data #269263