Buenos dias tengo un pequeño problema y no se si alguien puede ayudarme.
Tengo el siguiente código que recorre un directorio en busca de ficheros de texto para ser tratados con la función FindFirst.
Código:
try
FileAttrs:=SysUtils.faAnyFile;
if(FindFirst(self.FPath + '*.txt',FileAttrs,Filename)=0) then
begin
repeat
if (FileName.Attr and FileAttrs)=FileName.Attr then
begin
El problema viene en el último if donde valido los atributos. En ocasiones y sin aparentemente seguir un orden lógico, algunos archivos no "pasan" la validación del if y por tanto no se tratan. He validado los atributos de estos archivos y no he encontrado nada extraño.
¿Alguien se ha encontrado con este mismo problema? Gracias.