Управление идентификаторами папок через константы в Delphi

Delphi , Синтаксис , Массивы

При разработке программ на Delphi часто возникает необходимость использовать идентификаторы различных системных папок, таких как Documents, AppData и другие. Эти идентификаторы представлены в виде GUID и могут быть использованы для получения пути к соответствующей папке. В Delphi для работы с такими идентификаторами можно использовать константы, что позволяет упростить код и повысить его читаемость.

Проблема

Разработчик столкнулся с необходимостью определить упорядоченный список идентификаторов папок в момент компиляции программы. Он знает, что может создать массив идентификаторов, используя непосредственно строки с GUID, но это неудобно для поддержки кода. Также он может определить строковые константы, но тогда ему придется использовать функцию StringToGUID для преобразования строк в структуры GUID во всем коде, что нежелательно.

Решение

Чтобы использовать идентификаторы по именам в объявлении массива, необходимо удалить тип TGuid из констант идентификаторов, сделав их "настоящими константами" вместо "типизированных констант". Это позволит использовать их напрямую в массиве без необходимости преобразования строк.

const
  FOLDERID_LocalAppData = '{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
  FOLDERID_RoamingAppData = '{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
  FOLDERID_Documents = '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}';
  // ... другие константы ...

  settings_roots: array[0..2] of string = (
    FOLDERID_LocalAppData, FOLDERID_RoamingAppData, FOLDERID_Documents
  );

Также можно определить типизированные константы для удобства, не повторяя значения:

  FOLDERID_LocalAppData_GUID: TGUID = FOLDERID_LocalAppData;
  FOLDERID_RoamingAppData_GUID: TGUID = FOLDERID_RoamingAppData;
  FOLDERID_Documents_GUID: TGUID = FOLDERID_Documents;
  // ... другие типизированные константы ...

  settings_roots: array[0..2] of TGUID = (
    FOLDERID_LocalAppData_GUID, FOLDERID_RoamingAppData_GUID, FOLDERID_Documents_GUID
  );

Или, чтобы типизированные константы соответствовали схеме именования Win32 API, можно использовать следующий подход:

  FOLDERID_LocalAppData_STR = '{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
  FOLDERID_RoamingAppData_STR = '{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
  FOLDERID_Documents_STR = '{FDD39AD0-238F-46AF-ADB4-6C85480369C7}';
  // ... другие строковые константы ...

  FOLDERID_LocalAppData: TGUID = StringToGUID(FOLDERID_LocalAppData_STR);
  FOLDERID_RoamingAppData: TGUID = StringToGUID(FOLDERID_RoamingAppData_STR);
  FOLDERID_Documents: TGUID = StringToGUID(FOLDERID_Documents_STR);
  // ... другие типизированные константы ...

  settings_roots: array[0..2] of string = (
    FOLDERID_LocalAppData_STR, FOLDERID_RoamingAppData_STR, FOLDERID_Documents_STR
  );

Альтернативный ответ

В дополнение к вышеуказанному, можно использовать строковые константы с префиксом FOLDERID_XXX_STR для лучшей читаемости и избежать путаницы с типизированными константами.

Подтвержденный ответ

Изменение типов констант идентификаторов на "настоящие" константы позволяет использовать их напрямую в массивах без необходимости преобразования строк в GUID. Это решение описано в документации Embarcadero.

Заключение

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

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

Управление идентификаторами системных папок через константы в Delphi для упрощения работы с ними и повышения читаемости кода.

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

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

:: Главная :: Массивы ::