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