Переезд кода: от Windows до Android – отображение списка файлов в ListBox

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

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

Проблема и исходный код

Исходный код, представленный в вопросе, использует функции FindFirst, FindNext и FindClose для перечисления файлов в директории. Эти функции являются частью библиотеки WinAPI и предназначены для использования в операционных системах семейства Windows. В Android, который использует совершенно другую файловую систему и API, эти функции не работают.

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Подтвержденное решение

Для кросс-платформенных приложений, написанных на Delphi, следует использовать модуль System.IOUtils, который предоставляет функционал для работы с файлами и директориями, совместимый с разными платформами.

Пример использования функции TDirectory.GetFiles:

uses
  System.IOUtils;

procedure ListFileDir(Path: string; FileList: TStrings);
var
  Files: TStringDynArray;
  s: string;
begin
  FileList.Clear;
  Files := TDirectory.GetFiles(Path);
  for s in Files do
    FileList.Items.Add(s);
end;

Альтернативное решение

Если по каким-то причинам использование TDirectory.GetFiles невозможно, можно модифицировать исходный код, используя кондиционную компиляцию для определения маски файлов в зависимости от целевой платформы:

procedure ListFileDir(Path: string; FileList: TStrings);
const
  AllFilesMask = {$IFDEF MSWINDOWS}'*.*'{$ELSE}'*'{$ENDIF};
var
  SR: TSearchRec;
begin
  if FindFirst(Path + AllFilesMask, faAnyFile, SR) = 0 then
  try
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

Дополнительные замечания

При работе со списками файлов и их отображением в компоненте ListBox стоит использовать методы FileList.Clear, FileList.BeginUpdate и FileList.EndUpdate для оптимизации производительности.

Заключение

При переходе с Windows на Android важно использовать кросс-платформенные решения, такие как System.IOUtils, или адаптировать существующий код с помощью кондиционной компиляции. Это позволит обеспечить корректную работу приложения на разных платформах.

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

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

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

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

:: Главная :: Списки ::