Mascaras para TEdit FireMonkey

[lmir]

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]

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;

De todas formas sigo pensando que debe haber una forma más objetiva (orientada a objeto) para resolver lo que en el mundo VCL se lograba usando Undo, ClearUndo, CanUndo y hasta los Cancel, Abort. No estoy totalmente familiarizado todavía con FireMonkey, pero a veces me siento como si me faltaran cosas ...

[[AgustinOrtu]]

No debe ser muy dificil derivar el TEdit de FMX y meter el engendro en dos metodos