Como Valido Data num Dbedit?

Delphi

13/05/2003

Tenho um Dbedit ligado em uma tabela do Paradox, mas quando tento validar a data contida nele é gerado um erro. Quandi a data é valida ele a apaga.[b:49ec8b787b] O que devo fazer?[/b:49ec8b787b]
[color=darkblue:49ec8b787b]*Obs.*: [/color:49ec8b787b]Estou colocando o código dentro do evento OnSetText, do campo.


Mbressan

Mbressan

Curtidas 0

Respostas

Leandro Jacomete

Leandro Jacomete

13/05/2003

Passei pelo mesmo problema!!
aguarde um pouco que vou te passar!!!!!!



Tenho um Dbedit ligado em uma tabela do Paradox, mas quando tento validar a data contida nele é gerado um erro. Quandi a data é valida ele a apaga.[b:9a721d26b5] O que devo fazer?[/b:9a721d26b5] [color=darkblue:9a721d26b5]*Obs.*: [/color:9a721d26b5]Estou colocando o código dentro do evento OnSetText, do campo.



GOSTEI 0
Adilsond

Adilsond

13/05/2003

Voce está esquecendo de mover o valor para o campo.

procedure TForm1.Table1HireDateSetText(Sender: TField; const Text: String);
begin
  try
    Sender.AsDateTime := StrToDateTime(Text);
  except
    raise EDatabaseError.Create(´Data inválida.´);
  end;
end;



GOSTEI 0
POSTAR