Fórum Tratamento de Datas #190804
26/10/2003
0
Pessoal !!!
Estou fazendo assim para o tratamento de datas
Try
StrTodate(Dbedit1.Text)
Except
ShowMessage(´Data Inválida´)
end
O que acontece é que ele não dispara a execeção que coloquei pois eu entendo que como estou usando o dbedit antes de passar no exception ele já vai no banco. Se eu uso o maskedit então funciona... Mas não tem como usar o dbedit para que apareça somente a mensagem definida como no código acima ????
Rogério
Estou fazendo assim para o tratamento de datas
Try
StrTodate(Dbedit1.Text)
Except
ShowMessage(´Data Inválida´)
end
O que acontece é que ele não dispara a execeção que coloquei pois eu entendo que como estou usando o dbedit antes de passar no exception ele já vai no banco. Se eu uso o maskedit então funciona... Mas não tem como usar o dbedit para que apareça somente a mensagem definida como no código acima ????
Rogério
Roger_prog
Curtir tópico
+ 0
Responder
Posts
26/10/2003
Adilsond
Voce deve fazer o teste no evento OnSetText do field.
procedure TForm1.Table1HireDateSetText(Sender: TField; const Text: String);
begin
try
(Sender as TDateTimeField).Value := StrToDateTime(Text);
except
raise EDatabaseError.Create(´Data inválida.´);
end;
end;
procedure TForm1.Table1HireDateSetText(Sender: TField; const Text: String);
begin
try
(Sender as TDateTimeField).Value := StrToDateTime(Text);
except
raise EDatabaseError.Create(´Data inválida.´);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)