Fórum TDateTimeField com EditMask #217725
02/03/2004
0
Olá pessoal
O problema é o seguinte:
Tenho vários campos DateTime na minha tela de cadastro, cada um com sua propriedade EditMask configurada apropriadamente. Gravo os dados, funciona q é uma blz.
Mas, qdo edito um registro apagando um dos campos data, aparece uma mensagem d erro, dizendo: ´ / / ´ is not a valid date, ou algo do tipo. Esse erro dá assim q o DBEdit perde o foco. Há alguma maneira [b:8d753bcce5]prática[/b:8d753bcce5]d resolver esse problema?
Desde já agradeço a atenção e fico no aguardo.
O problema é o seguinte:
Tenho vários campos DateTime na minha tela de cadastro, cada um com sua propriedade EditMask configurada apropriadamente. Gravo os dados, funciona q é uma blz.
Mas, qdo edito um registro apagando um dos campos data, aparece uma mensagem d erro, dizendo: ´ / / ´ is not a valid date, ou algo do tipo. Esse erro dá assim q o DBEdit perde o foco. Há alguma maneira [b:8d753bcce5]prática[/b:8d753bcce5]d resolver esse problema?
Desde já agradeço a atenção e fico no aguardo.
Tnaires
Curtir tópico
+ 0
Responder
Posts
02/03/2004
Biscalquini
procedure LimpaData(Sender: TField;
const Text: String);
begin
If Text=´ / / ´ Then
Sender.AsString:=´´
Else
Sender.AsString:=Text;
end;
Chame esta procedure no evento onSetText do seu Field:
No Evento AfterOpen da Tabela:
Tabela.FieldByName(´Campo´).OnSetText:=LimpaData;
const Text: String);
begin
If Text=´ / / ´ Then
Sender.AsString:=´´
Else
Sender.AsString:=Text;
end;
Chame esta procedure no evento onSetText do seu Field:
No Evento AfterOpen da Tabela:
Tabela.FieldByName(´Campo´).OnSetText:=LimpaData;
Responder
Gostei + 0
03/03/2004
Tnaires
Obrigado pela dica, era a maneira q eu tava fazendo.
Mas eu queria saber se há uma maneira d resolver isso sem usar código.
Abraços
Mas eu queria saber se há uma maneira d resolver isso sem usar código.
Abraços
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)