Как модифицировать код на Delphi для получения пути к родительской директории

Delphi , Интернет и Сети , Браузер

Вопрос, поставленный автором, заключается в модификации существующего кода для извлечения пути к родительской директории, используя символ обратного слэша и двух точек ("\.."), что является стандартным способом в оболочках команд и некоторых языках программирования, включая Delphi.

Оригинальный код и проблема

В исходном коде используется функция ExtractFileDir для получения пути к родительской директории. Однако, автор хочет достичь того же результата, используя символы "\..", чтобы код был более читаемым и компактным, как в приведенном примере из образца кода Delphi.

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

Fmain.frxReport1.LoadFromFile(ExtractFileDir(ExtractFileDir(ExtractFileDir(ExtractFilePath(ParamStr(0)))))+'\FastReports\report1.fr3');

Автор также пытался использовать функцию SetCurrentDir, но предпочел бы однострочный код без использования этой функции.

Предложенное решение

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

Пример функции AbsolutizePath:

function AbsolutizePath(const RelPath: String; const BasePath: String = ''): String;
var
    I, J: Integer;
begin
    // ...
    // код функции
    // ...
end;

Альтернативное решение с использованием Delphi 10

С версии Delphi 10 можно использовать модуль System.IOUtils для получения полного пути к директории, включая изменение на родительский уровень:

using
    System.IOUtils;

lAppPath := ExtractFilePath(ParamStr(0));
lPathOffset := '.\..\..\..\..\.tmp\'; // Пример смещения на несколько уровней вверх
FTmpFolder := TPath.GetFullPath(TPath.Combine(lAppPath, lPathOffset));

Вывод

Автор желает использовать \.. для упрощения и улучшения читаемости кода, аналогично примеру из Delphi. Несмотря на предоставленные решения, автор предпочитает однострочный код, который напрямую использует \...

Рекомендуемое решение

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

Fmain.frxReport1.LoadFromFile(TPath.Combine(ExtractFileDir(ExtractFilePath(ParamStr(0))), '..\..\FastReports\report1.fr3'));

Этот код сначала получает путь к текущему проекту, затем создает абсолютный путь к родительской директории, и в конце указывает путь к файлу report1.fr3 внутри желаемой директории.

Использование TPath.Combine позволяет избежать сложностей с экранированием символов и обеспечивает корректную работу на разных платформах.

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

Вопрос связан с модификацией кода на Delphi для получения пути к родительской директории, используя символы '\..' для упрощения и улучшения читаемости кода.

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

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

:: Главная :: Браузер ::