Duvida em EditMask
Eu tenho um campo: DataNascimento do tipo Data.
Eu usei no form para este campo o: DBEdit.
Eu coloquei em DisplayFormat: dd/mm/yyyy.
Eu coloquei em EditMask: !99/99/0000;1;_
Entao eu lanco uma data qualquer: 27/04/2003.
Porem depois quando eu vou zerar este campo, ou seja, quero deixar vazio, aparece uma mensagem de erro: ´Valor de Entrada Invalido. Use a tecla Esc para abandonar as alteracoes´. E com isto de jeito nenhum eu consigo mais zerar o campo. Qual sera´ a solucao???
Diante mao desde ja´ agradeco as ajudas...
Eu usei no form para este campo o: DBEdit.
Eu coloquei em DisplayFormat: dd/mm/yyyy.
Eu coloquei em EditMask: !99/99/0000;1;_
Entao eu lanco uma data qualquer: 27/04/2003.
Porem depois quando eu vou zerar este campo, ou seja, quero deixar vazio, aparece uma mensagem de erro: ´Valor de Entrada Invalido. Use a tecla Esc para abandonar as alteracoes´. E com isto de jeito nenhum eu consigo mais zerar o campo. Qual sera´ a solucao???
Diante mao desde ja´ agradeco as ajudas...
Adonis
Curtidas 0
Respostas
Cristianosilva
27/04/2003
Tive o mesmo problema.
Troque !99/99/0000;1;_ por !99/99/9999;1;_ com os 0000 o campo obrigatóriamente tem que ter valores.
Espero ter ajudado.
Troque !99/99/0000;1;_ por !99/99/9999;1;_ com os 0000 o campo obrigatóriamente tem que ter valores.
Espero ter ajudado.
GOSTEI 0
Adonis
27/04/2003
Cristiano,
coloquei como voce sugeriu: !99/99/9999;1;_
Porem agora a seguinte mensagem de erro: ´ / / ´ Nao e´ uma data valida.
Se voce puder me ajudar agradeco.
coloquei como voce sugeriu: !99/99/9999;1;_
Porem agora a seguinte mensagem de erro: ´ / / ´ Nao e´ uma data valida.
Se voce puder me ajudar agradeco.
GOSTEI 0
Mauromarques
27/04/2003
Pelo que pude perceber este teu campo está ligado na base de dados, então:
no campo onchange do componente escreva o seguinte comando
if (Trim((Sender as TDBEdit).text)=´/ /´)and(DM1.TPedido.State=dsEdit)
then
(Sender as TDBEdit).Field.Clear;
no campo onchange do componente escreva o seguinte comando
if (Trim((Sender as TDBEdit).text)=´/ /´)and(DM1.TPedido.State=dsEdit)
then
(Sender as TDBEdit).Field.Clear;
GOSTEI 0