Как заполнить TListView именами файлов из подпапки в программе на Delphi

Delphi , Компоненты и Классы , TListView

Как заполнить TListView именами файлов из подпапки в программе на Delphi

Вопрос о том, как заполнить компонент TListView именами файлов из определенной подпапки в программе на Delphi, является довольно распространенным среди разработчиков, не имеющих опыта работы с этим компонентом. В данной статье мы рассмотрим, как можно решить эту задачу, используя примеры кода на Object Pascal.

Определение пути к подпапке

Первым шагом является определение пути к подпапке, которую необходимо заполнить в TListView. Для этого можно использовать функцию ParamStr(0), которая возвращает полный путь к исполняемому файлу программы, затем воспользоваться ExtractFilePath, чтобы исключить имя исполняемого файла, и добавить к пути необходимую подпапку, используя IncludeTrailingPathDelimiter.

var
  DirPath: string;
begin
  DirPath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Files\';
end;

Получение списка файлов

Для получения списка файлов и подпапок можно использовать функции FindFirst и FindNext из модуля SysUtils. Эти функции позволяют перебирать объекты в директории.

var
  Rec: TSearchRec;
begin
  if FindFirst(DirPath + '*', faAnyFile, Rec) = 0 then
    try
      repeat
        if (Rec.Name = '.') or (Rec.Name = '..') then
          continue;
        // ... Обработка найденных файлов
      until FindNext(Rec) <> 0;
    finally
      FindClose(Rec);
    end;
end;

Добавление элементов в TListView

После того как список файлов получен, можно добавлять элементы в TListView, используя свойство Items компонента.

var
  Item: TListItem;
begin
  Item := FileList.Items.Add;
  Item.Caption := Rec.Name;
  // ... Настройка свойств элемента
end;

Использование изображений для различения файлов и директорий

Для визуального различия между файлами и директориями можно использовать TImageList и назначать индексы изображений соответствующим элементам списка.

if (Rec.Attr and faDirectory) <> 0 then
  Item.ImageIndex := 1
else
  Item.ImageIndex := 0;

Пример полного кода

procedure TForm2.Button1Click(Sender: TObject);
var
  li: TListItem;
  SR: TSearchRec;
begin
  FileList.Items.BeginUpdate;
  try
    FileList.Items.Clear;
    FindFirst(ExtractFilePath(Application.ExeName) + 'Files\*.*', faAnyFile, SR);
    try
      repeat
        li := FileList.Items.Add;
        li.Caption := SR.Name;
        if (SR.Attr and faDirectory) <> 0 then
          li.ImageIndex := 1
        else
          li.ImageIndex := 0;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  finally
    FileList.Items.EndUpdate;
  end;
end;

В этом примере кода предполагается, что в форме уже есть компонент TImageList, связанный с свойством LargeImages TListView. Функция ExtractFilePath используется для получения пути к директории, где находится исполняемый файл программы, и добавляется поддиректория Files. Для различения директорий и файлов используется индекс изображения в TImageList.

Заключение

Используя вышеописанные шаги, разработчики могут заполнить TListView именами файлов и поддиректорий, расположенных в определенной подпапке относительно исполняемого файла программы. Это позволяет легко обновлять содержимое списка при запуске приложения или после определенных действий внутри программы, таких как импорт новых файлов.

Создано по материалам из источника по ссылке.

Описание: Вопрос о том, как заполнить компонент `TListView` в Delphi именами файлов из определенной подпапки, рассматривается через пошаговое руководство с использованием примеров кода.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TListView ::