mascaras multiples con findfirst
 

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

Hola pato89xd.
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.

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

Eso es muy distindo de tu primera pregunta... :)
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.

muchas gracias =D
 

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'

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.