Tratamento de Datas
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
Curtidas 0
Respostas
Adilsond
26/10/2003
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;
GOSTEI 0