Карта сайтаСсылкиКонтакты

Чтение содержимого всего каталога

PDF Печать
Статьи

Здесь мы рассмотрим функцию FindAllInDir, которая будет искать все файлы и каталоге в заданной директории и выводить их в компонент ListBox. Для пример возьмем папку Windows.

Чтение всего каталога Windows в ListBox

procedure FindAllInDir(const sPath: string; iAttr: integer; sList: TStrings);
var
  rec: TSearchRec;
  bEOF: boolean;
begin
  bEOF:= false;
  if FindFirst(sPath, iAttr, rec) < 0 then
    exit
  else
    while not bEOF do
    begin
      sList.Add(rec.Name);
      bEOF:= FindNext(rec) <> 0;
    end;
    FindClose(rec);
end;

procedure TForm1.btnFindClick(Sender: TObject);
begin
  FindAllInDir('C:\Windows\*.*', faAnyFile, ListBox1.Items);
end;

 

Добавить комментарий


Защитный код
Обновить