Получить список файлов в ListView как в проводнике

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

procedure TForm1.Button1Click(Sender: TObject);
var
  ListItem: TListItem;
  sr: tsearchrec;
  NewColumn: TListColumn;
begin
  NewColumn := ListView1.Columns.Add;
  NewColumn := ListView1.Columns.Add; // добавдяются колонки
  if FindFirst('*.*', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
  begin
    ListItem := ListView1.Items.Add; // создается объект
    ListItem.Caption := sr.name;
    ListItem.SubItems.Add(inttostr(sr.size));
    ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
    while FindNext(sr) = 0 do
    begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := sr.name;
      ListItem.SubItems.Add(inttostr(sr.size));
      ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
    end;
    FindClose(sr);
  end;
end;

Here's the translation of the content into Russian:

Код, который вы предоставили, - это процедура Delphi, которая пополняет контролем TListView файлами из текущего каталога. Вот разбивка того, что она делает:

1. Она добавляет два столбца в ListView: NewColumn.
2. Она использует функции FindFirst и FindNext, чтобы перебирать файлы в текущем каталоге.
3. Для каждого найденного файла она создает новый объект TListItem и присваивает его свойства:
   • Caption: устанавливает текст, отображаемый в первом столбце (имя файла).
   • SubItems.Add: добавляет два подэлемента к списку элементов:
     • Второй подэлемент отображает размер файла (преобразован из байт в строку с помощью IntToStr).
     • Третий подэлемент отображает дату и время файла (преобразован из значения TDateTime в строку с помощью DateTimeToStr).

Чтобы улучшить этот код, я рекомендую следующее:

1. Используйте более описательное имя переменной вместо NewColumn. Например, FileColumn1 и FileColumn2.
2. Рассмотрите добавление обработки ошибок для случаев, когда операция с файловой системой fails (например, когда каталог является только для чтения или содержит слишком много файлов).
3. Вы можете использовать цикл для создания подэлементов вместо вызова ListItem.SubItems.Add несколько раз.
4. Если вы хотите отображать больше информации о каждом файле, рассмотрите добавление дополнительных столбцов.

Вот обновленная версия кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  FileColumn1, FileColumn2: TListColumn;
begin
  FileColumn1 := ListView1.Columns.Add;
  FileColumn2 := ListView1.Columns.Add;

  if FindFirst('*.*', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
  begin
    while FindNext(sr) = 0 do
    begin
      ListView1.Items.Add
        .Caption := sr.Name
        .SubItems.Add(IntToStr(sr.Size))
        .SubItems.Add(DateTimeToStr(FileDateToDateTime(sr.Time)));

    end;
    FindClose(sr);
  end;
end;

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

В статье описывается способ получения списка файлов в ListView, похожий на отображение файла в проводнике, используя Delphi и процедуру TForm1.Button1Click.

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

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

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