Ver Mensaje Individual
  #2  
Antiguo 26-04-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Reputación: 25
egostar Va camino a la fama
Post

Hola Gustavo

Si es obligado usar el TEditMask puedes usar esta rutina, aunque se complica porque debes de identificar si el mes es de 28, 29, 30 o 31 dias.


Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
  If (copy(MaskEdit1.Text,1,2) < '00') or
     (copy(MaskEdit1.Text,1,2) > '31') then begin
     showmessage('Dia mal capturado');
  end;
  If (copy(MaskEdit1.Text,4,2) < '00') or
     (copy(MaskEdit1.Text,4,2) > '12') then begin
     showmessage('Mes mal capturado');
  end;
end;



Yo te sugiero que mejor uses un TDateTimePicker y te olvidas de las validaciones.

Saludos

PD. Edite el mensaje porque no me puso bien el codigo, algun error en el resaltador de sintaxis delphi.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 26-04-2006 a las 23:49:27.
Responder Con Cita