FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
veo que e generado un poco de polemica... lo cual siempre es bueno, lo unico que necesitaba saber era la pregunta original, todo lo demas estaba resuelto. mi codigo queda asi al final de cuentas :
procedure Tfrmcaptura.Edit1KeyPress(Sender: TObject; var Key: Char); begin contador:=contador+1; if contador =7 then begin Perform(WM_NEXTDLGCTL, 0, 0); contador:=1; end else Begin if ((contador mod 2)=0) and (contador>2) then begin Edit1.Text:=Edit1.Text+'/'; Edit1.SelStart:=Length(Edit1.Text); end; end; begin if key=#13 then//Si presiona enter BEGIN numero:=edit1.text; if ValidaFecha(numero) then Perform(WM_NEXTDLGCTL, 0, 0) else begin ShowMessage('La Fecha esta incompleta, debe contener 6 numeros'); edit1.text:=''; contador:=1; end; End; if key=#32 then //Para Poder presionar Barra Espaciadora else if key=#8 then //Para Poder presionar Backspace (Borrar) else If not (key in ['0'..'9']) then key:=#0; end; end; // FUNCION PARA VALIDAR LA FECHA function ValidaFecha(Numero:string):boolean; var rango :string; i : integer; begin rango:=''; for i:=1 to Length(Numero) do if Numero[i] in ['0'..'9'] then rango:=rango+Numero[i]; {Si no tiene 6 digitos, no es válido} if (Length(rango)=6) then Result:=True else Result:=FALSE; end; // POR SI A ALGUIEN SE LE OCURRE VOLVER A CAPTURAR LA FECHA procedure Tfrmcaptura.Edit1Click(Sender: TObject); begin edit1.text:=''; contador:=1; end; bueno... que les parece?? todo lo deduje leyendo sus diversos "posts". y la verdad me empieza a agradar bastante Delphi, gracias a personas como ustedes Saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como agrego un modulo a varios proyectos | Rmartin | Varios | 1 | 14-08-2006 19:46:45 |
Como Realizar una consulta desde un Tedit? | ing.cagn | SQL | 7 | 06-01-2006 20:47:12 |
tchar , como agrego datos ? | genarol | Varios | 3 | 29-11-2004 19:43:18 |
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera | atirado | Varios | 4 | 11-09-2004 19:13:48 |
Como agrego el componente BDEClientDataSet en delphi 7 | xtrem77 | Conexión con bases de datos | 2 | 20-11-2003 00:31:57 |
|