Filtro en delphi

[ecfisa]

Hola edribalo, bienvenido a los foros de Club Delphi

Como a todos los que ingresan, te invitamos a que leas nuestra guía de estilo.

Intenta de este modo:

Código Delphi [-]
procedure FindFiles(Folder: string; const Extension :string; TS: TStrings);
var
  SR: TSearchRec;
  Found: Boolean;
begin
  Screen.Cursor := crHourGlass;
  try
    Folder := IncludeTrailingPathDelimiter(Folder);
    if FindFirst(Folder + '*.*', faDirectory, SR) = 0 then
    repeat
      Found := UpperCase(ExtractFileExt(SR.Name)) = UpperCase(Extension);
      if ((SR.Attr and fadirectory) = fadirectory) then
      begin
        if(SR.Name <> '.') and (SR.Name <> '..') then
        begin
          if Found then
            TS.Add(Folder + SR.Name );
          FindFiles(Folder + SR.Name, Extension, TS)
        end
      end
      else if Found then
        TS.Add(Folder + SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  finally
    Screen.Cursor := crDefault;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFiles(Edit1.Text, '.DPR', Memo1.Lines);
end;

Saludos