Использование относительного пути

Очень часто в ini – файле задают пути к папкам, в которых хранятся служебные файлы, пути к локальным или сетевым файлам базы данных и том подобное. Часто удобно указать путь относительно корневого каталога например вот так вот “.\Logs” вместо прописывания полного пути в папке. Как правило, все функции оперируют с полным путем к файлу. Для того то что бы преобразовать “.\Logs” в полный путь можно воспользоваться следующим кодом.

</pre>
function ProcessingPath(APath: string): string;

var

lPath: string;

begin

lPath:= APath;

if lPath[1] = '.' then begin

Delete(lPath,1,1);

Delete(lPath,1,1);

lPath:= ExtractFilePath(Application.ExeName)+lPath;

end;

ForceDirectories(lPath);

Result := IncludeTrailingPathDelimiter(lPath);

end;

ForceDirectories – создает директорию если она не существует, IncludeTrailingPathDelimiter – гарантирует, что завершаться путь будет косой чертой.

Share

Tags:

One Response to “Использование относительного пути”

  1. Mahaley пишет:

    I’m impressed! You’ve managed the almost impossbile.

Leave a Reply