Mascara muy especializada

[carlos gonzalez]

Hola amigos tengo una duda ojala puedan ayudarme, no se si pueda crear una mascara especial
para un edit.

Necesito crear una mascara que cumpla las sig. condiciones.

1.- El string debe de tener 8 caracteres
2.- El primer caracter debe ser 'D','C' o 'P'
3.- El Segundo caracter debe ser una letra entre la 'A' Y la 'Z'
4.- El caracter del 3 al 7 deben de ser numeros
5.- El octavo caracter debe de ser 'A','B','C','E','J','N' o un espacio en blanco

Si alguien sabe si es posible hacer esto, se los agradeceria bastante si lo
comparten conmigo

Su amigo charless.

[[Lepe]]

Hombre, se puede crear un Parser... pero creo que es demasiado, para lo que dices, puede bastar con algo así:

Código Delphi [-]

type
  TCharSet = set of Char;

const Primera : TCharSet = ['D','C','P'];
        Segunda:TCharSet = ['A'..'Z', 'Ñ'];
        numeros:TCharSet = ['0'..'9'];
        Ultima :TCharSet = ['A','B','C','E','J','N',' '];

function IsIDFactura(const str:string):Boolean;
var s:string;
begin
 Result := length(str) = 8;
 s := uppercase(str); 
 if Result then
  Result := (s[1] in Primera) and 
               (s[2] in Segunda) and
               (s[3] in numeros ) and 
               (s[4] in numeros ) and 
               (s[5] in numeros ) and 
               (s[6] in numeros ) and 
               (s[7] in numeros ) and 
               (s[8] in Ultima );
end;

Ya tienes una idea, si quieres que se valide mientras se escribe, pues es cuestión de modificarlo.

Saludos