Fórum Como retornar os zeros do Maskedit? #348796
11/11/2007
0
Criei um cadastro de alunos usando o interbase com inclusão, exclusão e atualização. Na inclusão quando o usuario digita uma data como esta (02/06/2007) no maskedit se ele não digitar os zeros da esquerda a data é enviada como ( 2/ 6/2 7) gerando um erro na gravação. Alguém sabe como retornar os zeros do maskedit?
procedure TfrmAlunos.btnSalvarClick(Sender: TObject);
var
data: TDateTime;
begin
data:= StrToDateDef(txtDtNasc.Text, Date);
If not (TryStrToDate(txtDtNasc.Text, data)) then
ShowMessage(´Data inválida!!´)
end;
Soueusei26
Curtir tópico
+ 0
Responder
Posts
11/11/2007
T3r3son
Qual a sua engine de acesso?
No codigo abaixo, o formato de saida é com zeros, bastando configurar a mascara no editor de mascaras
maskedit1.editmask := ´!00/00/0000;1;_´;
Veja tambem como esta definido o campo no banco.
Espero ter ajudado!!!
[]´s
Evaristo
No codigo abaixo, o formato de saida é com zeros, bastando configurar a mascara no editor de mascaras
maskedit1.editmask := ´!00/00/0000;1;_´;
Veja tambem como esta definido o campo no banco.
Espero ter ajudado!!!
[]´s
Evaristo
Responder
Gostei + 0
20/11/2007
Soueusei26
Obrigado t3r3son, eu resolvi com TimerPicker.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)