FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Mascaras para TEdit FireMonkey
Hola. Necesito filtrar la entrada de datos en una apk. Quisiera con una mascara determinar que tipo de datos se permite captar. En este control pretendo captar numeros enteros, reales o cadenas de acuerdo a lo que necesite y que vendria determinado como ya decia por la mascara. En FMX no existe ningun TEdit "enmascarado" como TMaskedEdit pero se puede utilizar algunas funciones de la unit MaskUtils.pas.
Sin embargo, esa mascara del tipo "#990.00;1;_" me permite cosas como "1__.34", no me sirve bien para los numeros reales. He encontrado unos ejemplos en internet para el evento OnChange y de ahi he tratado de usar este fragmento: Funciona bien en VCL, pero en FMX da error pues no existen los metodos Undo ni ClearUndo y no logro sustituirlos por ninguno de los que veo en la ayuda. ¿ Alguien ha pasado por esto ? ¿ O tal vez conocen otra forma mejor de lograr lo mismo ? Muchas gracias lmir Última edición por Casimiro Notevi fecha: 09-10-2015 a las 12:11:58. |
#2
|
||||
|
||||
Hola,
¿No podría sustituirse el "Undo" y el "ClearUndo" tomando el control del texto del "TEdit" nosotros mismos? O sea, antes de realizar la validación, guardamos el texto del "TEdit", de modo que podamos recuperarlo llegado el caso. Por otro lado, si piensas enviar la información recogida a un servidor, probablemente tendrás que revisar también en el servidor que la información recibida sea correcta: ahí tal vez sea más sencillo a fuer de poder hacerse en segundo plano. Incluso, dependiendo de la respuesta del servidor al mandar información, podríamos limpiar los "TEdit", o rellenarlos con datos (provenientes del servidor) previamente "sanitizados"... no sé si me estoy pasando de listo en este caso... |
#3
|
|||
|
|||
Gracias dec. Si, había pensado en ewsa posibilidad pero me daba un poco de vagancia romperme la cabeza con eso, me pareció que debía haber muchos ejemplos por ahi de eso, pero en realidad no he encontrado ninguno que me resuelva totalmente el problema.
Así que tuve que modificar un poco ese código a partir de eso que dices. Obtuve un engendro que me funciona. Lo pongo aquí porque quien sabe, de repente hay alguno todavía más vago que yo y le sirve... Código para filtrar una cadena capturada en base a una máscara en FireMonkey. Basado en un aporte de Mahdi78 en http://www.experts-exchange.com/arti...pe-number.html[/font] Código:
var sUndo : string = ''; Mascara : string = '990.09'; // # Signo, A-Letras may, a-letras minusc, 0-Numero oblig, 9 Numero opcional procedure TForm3.Edit1YoChange(Sender: TObject); type TCaso = (csOK, csSaltoSigno, csNoCumpleMascara); var I, iSigno, pSig : Integer; P, P2: PChar; caso : TCaso; begin if Length(TEdit(Sender).Text) > Length(Mascara) then begin TEdit(Sender).Text := sUndo; Exit; end; P := PChar(TEdit(Sender).Text); sUndo := ''; I := 1; iSigno := 0; pSig := 0; while P^ <> #0 do begin caso := csOK; case Mascara[i] of '#' : begin if (I>1) or not (P^ in ['+', '-']) then caso := csSaltoSigno; iSigno := 1; end; 'A' : if not (P^ in ['A'..'Z']) then caso := csNoCumpleMascara; 'a' : if not (P^ in ['A'..'Z', 'a'..'z']) then caso := csNoCumpleMascara; '9' : begin if (I-iSigno = 1) then begin pSig := i; while Mascara[pSig] in ['0'..'9'] do Inc(pSig); end; if not (P^ in ['0'..'9']) then caso := csNoCumpleMascara; end; '0' : if not (P^ in ['0'..'9']) then caso := csNoCumpleMascara; else if Mascara[i] <> Char(P^) then caso := csNoCumpleMascara; end; if caso = csNoCumpleMascara then begin if (P^ = Mascara[pSig]) then begin i := pSig; caso := csOK; end else begin TEdit(Sender).Text := sUndo; Beep; Exit; end; end; case caso of csOK : begin sUndo := sUndo + P^; Inc(P); Inc(I); end; csSaltoSigno : Inc(I); // Solo incremento la mascara para saltar el Signo si no viene end; end; sUndo := TEdit(Sender).Text; // TEdit(Sender).ClearUndo; end; Última edición por lmir fecha: 10-10-2015 a las 04:06:36. |
#4
|
||||
|
||||
No debe ser muy dificil derivar el TEdit de FMX y meter el engendro en dos metodos
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recursos para FireMonkey | AgustinOrtu | FireMonkey | 2 | 25-06-2015 09:30:58 |
mascaras de entrada para cada columna y fila de un tstringgrid | DarkBlue | OOP | 0 | 04-07-2011 05:53:32 |
Máscaras para campos numéricos | jadelphi | Varios | 2 | 01-09-2004 08:53:06 |
Solucion para mascaras de dbedit | nefy | Conexión con bases de datos | 1 | 04-12-2003 00:41:29 |
mascaras para dbedit | nefy | Conexión con bases de datos | 1 | 03-12-2003 02:30:59 |
|