mascaras multiples con findfirst

[pato89xd]

hola, estoy tratando de seleccionar solo un tipo de archivos con findfirst pero no me funciona, este es el codigo, que hago mal?

procedure TForm3.FoldersData(Genero,Ruta:String);
var
  R,ima : TSearchRec;
  Busq,imagen, Dirs: Integer;
  rimagen,mask : string;
  noencontre : Boolean;
begin
 WriteLn( F, Genero );
Dirs := 0;
noencontre := True;
Busq := FindFirst(Ruta + '*.*', FaAnyfile, R);
rimagen := '';

  while Busq = 0 do
  begin
    if (R.Attr and faDirectory = faDirectory ) then
    begin
      if (R.Name <> '.') and (R.Name <> '..') then
      begin

      imagen := FindFirst(Ruta+R.Name+'\'+'*.*', FaAnyfile,ima);

  while (imagen = 0)and noencontre=True do
  begin
    if ( ima.Attr and faArchive = faArchive ) and
       ( ima.Attr and faDirectory <> faDirectory )    then
       begin

        noencontre := False;
       rimagen := Ruta+R.Name+'\'+ima.Name;

       end;
       imagen := FindNext(ima);
       end;
           FindClose(ima);
           noencontre := True;


        Inc(Dirs);
        WriteLn( F,chr(9)+R.Name+'|'+Ruta+R.Name+'\|'+rimagen);
       MusicaData(Genero,Ruta+R.Name+'\');
       rimagen := '';
      end;
    end ;
 Busq := FindNext(R);
end;

[ecfisa]

Hola pato89xd.

hola, estoy tratando de seleccionar solo un tipo de archivos

Supongo que te referís a archivos con una determinada extensión, si es así, tenés que especificarla.
Suponiendo que busques archivos .WAV seria:

Código Delphi [-]
Busq := FindFirst(Ruta + '*.WAV', FaAnyfile, R);

Pero sería más flexible pasar la extensión como un argumento de la función:

Código Delphi [-]
Busq := FindFirst(Ruta + Ext, FaAnyfile, R);

No probé el código e ignoro si la intención del argumento Genero era ese, en ese caso sería Ruta + Genero.
Un saludo.

[pato89xd]

gracias, pero mas bien quiero por ejemplo filtrar archivos de imagenes con cualquier extencion de imagenes, trate de ponerle al path algo asi
Path +'*.JPEG; *.JPG; *.BMP; *.GIF'
pero no me funciona, que puedo hacer? :s

[ecfisa]

quiero por ejemplo filtrar archivos de imagenes con cualquier extencion de imagenes

Eso es muy distindo de tu primera pregunta...

estoy tratando de seleccionar solo un tipo de archivos

Si querés enviarle una máscara, sería algo como:

Código Delphi [-]
procedure BuscarArchivos(Ruta, Mask: string);
var
  SR: TSearchRec;
  i: Integer;
  ts: TStrings;
begin
  ts:= TStringList.Create;
  try
    ts.Clear;
    ts.Delimiter:= ';';
    ts.DelimitedText:= Mask;
    for i:= 0 to ts.Count -1 do
    begin
      if FindFirst(Ruta + ts[i], faArchive, SR) = 0 then
      repeat
        Form1.Memo1.Lines.Add(SR.Name); 
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
  finally
    ts.Free;
  end;
end;

Para llamarlo así:

Código Delphi [-]
begin
  BuscarArchivos('C:\TEMP\', '*.zip;*.rar;*.pas;*.exe');
end;

Aviso: Es sólo un ejemplo de como implementar la busqueda con una máscara de multiples extensiones. Está probado y funciona; pero de
ninguna manera intenta reemplazar a tu código que como ya te dije, no he probado.

Un saludo.

[pato89xd]

muchisimas gracias, funciono a la perfeccion, ahora, abusando de tu amabilidad, como le haria para quitarle la extension a un archivo?, es decir si tengo un 'imagen.jpeg' quisiera obtener solo 'imagen'

[ecfisa]

Hola.

Con la función ChangeFileExt.

Ejemplo:

Código Delphi [-]
var
  Nombre: string;
begin
   Nombre:= ChangeFileExt('AUTOEXEC.BAT','');
end;

Pero por favor la próxima vez para una nueva pregunta abrí un nuevo hilo, gracias.

Un saludo.