Сканирование папок

[YurMak]

Подскажите, пожалуйста, как просканировать внутреннюю память и SD-карту устройства на наличие файлов с определенным расширением.
Задача такая: в TListBox "собрать" все файлы *.jpg или *.mp3.

[dnekrasov]

Обратите внимание на модуль System.IOUtils, а в частности на класс TDirectory. Там Вы найдёте все что Вам нужно.

[YurMak]

Спасибо, попробую.

[Гумар Садиков]

unit Unit3;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,System.IOUtils,
  FMX.ListView.Types, FMX.ListView;

type
  TForm3 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TForm3.FormCreate(Sender: TObject);

var
  LList: TStringDynArray; // Cписок .JPG файлов
  LItem: TListViewItem;   // Cписок .JPG файлов
  path: string;           // Папки в которой будем искать файлы
  i: Integer;

begin

  if TDirectory.Exists('/storage/') then
     path := '/storage/'
  else path := '/sdcard/';

try

     LList := TDirectory.GetFiles(path, '*.JPG', TSearchOption.soAllDirectories);
except
     ShowMessage('Произошла ошибка !');
     Exit;
end;
     ListView1.BeginUpdate;
try

for i := 0 to Length(LList) - 1 do
begin
     LItem := ListView1.Items.Add;
     LItem.Text := TPath.GetFileNameWithoutExtension(LList);
     LItem.Detail := LList;
end;
finally
    ListView1.EndUpdate;
end;
end;

end.

0_3.rar