Validar datas

Question

Preciso sabe onde exatamente ocorre o evento para testar o formato de um campo data na tabela(Paradox), pois coloquei a fun��o que testa a data no OnExit do dbedit tentando gravar uma data vazia mas o erro ocorre antes da fun��o executar.

Afarias · Answer

uma op��o � criar um procedimento gen�rico de tratamento de erros (Application.OnException) com um c�digo tipo::

var
Handled: Boolean;
begin
Handled := False;
{..}
if (E is EDbEditError) then
begin
if (Sender as TDbEdit).Text = EmptyStr then
begin
(Sender as TDbEdit).Field.Clear;
Perform(WM_NextDlgCtl, 0, 0);
end
else
ShowMessage(�Valor informado inv�lido. Tecle <ESC> para cancelar.�);
Handled := True;
end;
{...}
if not Handled then
ShowMessage(E.Message); // ou raise E;
end;

T+

Amilton/pr · Answer

E onde eu rodo esse procedimento?...

Afarias · Answer

hummm... vc tem q criar um �Event Handler� para o evento OnException do Application. vc pode fazer isso no seu form principal por exemplo -- usando o evento OnCreate do form, da forma::

TFormPrinc = class (TForm)
{...}
private
procedure HandleException(Sender: TObject; E: Exception);
end;

{...}

implementation

{...}

procedure TFormPrinc.FormCreate(Sender: TObject);
begin
Application.OnException := HandleException;
end;

procedure TFormPrinc.HandleException(Sender: TObject; E: Exception);
begin
// o c�digo de tratamento do erro aqui!!
end;

{...}

T+

Amilton/pr · Answer

Deixou de dar o erro(d� a mensagem da fun��o) por�m n�o passa para o campo seguinte e acho que n�o limpa o Dbedit. Tem alguma coisa que pode ser melhorado?...

Afarias · Answer

A fun��o do c�digo � justamente �traduzir� a mensagem de erro -- cujo objetivo � informar ao usu�rio q o valor digitado � inv�lido e ele deve alterar o valor para algo v�lido ou teclar ESC para cancelar a altera��o.

T+

Amilton/pr · Answer

Mas eu quero armazenar a data em branco. Passar pelo campo e gravar o valor nulo. Obrigado pela aten��o . . ....

Afarias · Answer

qual o componente?? TDBEdit? -- achei q o c�digo deveria funcionar caso vc limpase o DBEdit. Vc pode tb substituir o EmptyStr por::

FormatMaskText((Sender as TDbEdit).Field.EditMask, EmptyStr)

ou, se preferir, vc pode apenas for�ar fazendo::

var
Handled: Boolean;
begin
Handled := False;
{...}
if (E is EDbEditError) then
begin
(Sender as TDbEdit).Field.Clear;
Perform(WM_NextDlgCtl, 0, 0);
Handled := True;
end;
{...}
if not Handled then
ShowMessage(E.Message); // ou raise E;
end;

T+

F�rum Validar datas #193998