Tema: FindFile
Ver Mensaje Individual
  #2  
Antiguo 25-02-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: Jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 16
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita