Como Valido Data num Dbedit?

13/05/2003

1

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.


Responder

Posts

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.



Responder

13/05/2003

Adilsond

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;



Responder