Como hacer una mascara especifica

[ecfisa]

Hola Paulao.

O sea, una forma de yo hacer *.*, pero que exclua los CLASS.

Creo entender con claridad lo que estás buscando. El problema es que no se puede utilizar un filtrado con exclusión como intentas.

La limitante no es de Delphi sino del propio sistema operativo. Por ejemplo, si hacemos desde el command prompt:

C:\>DIR *.*-CLASS.TIF

Recibimos el mensaje "No se encuentra el archivo" aunque existan archivos en el directorio raíz.


Basados en el sistema operativo, FindFirst y FindNext actúan del mismo modo:

Código Delphi [-]
var
  SR: TSearchRec;
begin
  case FindFirst('*.*-CLASS.TIF', $FF, SR) of
    0: ShowMessage('Todo OK');
    1: ShowMessage('Función incorrecta');
    2: ShowMessage('No se encuentra el archivo');
    3: ShowMessage('No se encuentra la ruta');
    4: ShowMessage('Demasiados archivos abiertos');
    //...
  end;
end;

En este caso también obtenemos el mensaje: "No se encuentra el archivo"

Como te sugirió Caro, la exclusion del archivo debe hacerce con posterioridad al filtrado. Al menos yo no veo manera de hacerlo desde la máscara en sí.

Si estas utilizando, o tenés en mente otra forma de realizarlo, por favor ponenos el código para poder brindarte una mejor ayuda.

Saludos.