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;
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 ...