Campo vazio da data inválida

Delphi

26/05/2004

Tenho um campo DBEdit ligando a uma tabela com mascara de data.

O problema é o seguinte:
Se caso eu não digitar toda a data o sistema mostra que a data é inválida, só que depois que da esse erro não aceita mais o campo ficar nulo.

Como posso tratar isso.

Obrigado

Giliard Abreu


Giliardabreu

Giliardabreu

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

26/05/2004

na procedure ONSetText do campo;

procedure qry1CAMPO_DATASetText(Sender: TField;
  const Text: String);
begin
    if Text = ´  /  /  ´ then
       Sender.AsString := ´´
     else
       Sender.AsString := Text;
end;



GOSTEI 0
POSTAR