FindFile

[petete2008]

Como puedo utilizar la función FindFile en delphi para que me busqué una cadena de números en el nombre del fichero y en sus extremos NO contenga un número.

Ej :
Buscar cadena : 543

fichero encontrados :
543.jpg VALIDO
prueba543.jpg VALIDO
prueba543imagen.jpg VALIDO
prueba5432imagen.jpg INVALIDO <-- no debería de encontrarlo puesto que el siguiente caracter de la cadena busqueda es un número.

Espero haberme explicado bien.
Gracias

[*Caro*]

Hola petete2008, tendrías que hacerlo con las funciones FindFirst, FindNext y Pos:

Código Delphi [-]
var
 sr: TSearchRec;
 Ind : Integer;
begin
 cadena := '543';
 Try
    If FindFirst(Path + '*'+cadena+'*.*', faArchive, sr) = 0 Then
     Repeat
      Ind := Pos(cadena, sr.Name);
      if not(sr.Name[Ind+Length(cadena)]  in ['1'..'9']) then
        showmessage(sr.Name);
     until FindNext(sr) <> 0;
   end;
 Finally
  FindClose(sr);
 end;
end;

Saluditos

[petete2008]

Gracias!!