III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

4. Функции и процедуры для работы с именем файла

Функция ExtractRelativePath ( const BaseName, DestName: string ): string;

Модуль: SysUtils

Описание
Функция преобразовывает полный путь в относительный. Параметр BaseName определяет полное имя файла.
Функция подсчитывает количество вложенных каталогов в параметре DestName и вставляет подстроку '..\' на место недостающих каталогов в строке BaseName. Имя диска при этом не возвращается.

Пример
var
   S: string;
begin
...
   S:= ExtractRelativePath( 'С:\DIR1\DIR2\', 'С:\DIRWORK\myfile.zzz');
// SS:= '..\..\DIRWORK\myfile.zzz'
...
end;

[Вернуться к содержанию]