Como retornar os zeros do Maskedit?

Delphi

11/11/2007

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

Soueusei26

Curtidas 0

Respostas

T3r3son

T3r3son

11/11/2007

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


GOSTEI 0
Soueusei26

Soueusei26

11/11/2007

Obrigado t3r3son, eu resolvi com TimerPicker.


GOSTEI 0
POSTAR