Erro usando mascara 99/99/9999;1;_ em TSQLTimeStampField

Delphi

23/01/2007

Olá.

Estou tendo problema com uma mascara atribuida no field de um ClientDataSet.

Quando estou em modo de edição, no DBEdit fica assim __/__/____

Nem sempre é obrigatorio a digitação da data.

No Evento OnExit ja tentei o seguinte codigo:

begin
  if Length(RetornaNumeros(dbData.text)) > 0 then
    begin
      try      
        strToDate(dbData);
      except
        Mensagem(´A data informada não é uma data válida.´,´Atenção!´,48);
         dbData.setFocus;
         exit;     
     end;
    end;
end;


Mas se não digito nada no dbData quando preciono Enter/Tab para sair do campo vem a mensagem: [b:356af30d21]Could not parse SQL TimeStamp String[/b:356af30d21] mas não entra no OnExit do dbData.

Ja tentei outras mascaras:

99/99/9999;0;_
!99/99/9999;1;_
!99/99/9999;0;_

Mas sem obter sucesso.

Alguem tem alguma dica?
:roll:


Macario

Macario

Curtidas 0

Respostas

Catunda

Catunda

23/01/2007

Tente #//;0;_


GOSTEI 0
Macario

Macario

23/01/2007

Olá.

Tentei seu exemplo, mas ocorre o mesmo erro.

Não passa pelo OnExit.


GOSTEI 0
POSTAR