Delphi-Help

Описание

function ExtractFilePath ( const FullFileName : string ) : string;

Функция ExtractFilePath извлекает из FullFileName подстроку пути.
Это часть полного имени файла включая конечный \ перед именем файла.

Пример кода

var
fullFileName : string;
begin
// Установка полного имени файла с диском и путем
fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
// Показ составляющих частей этого полного имени
ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
ShowMessage('Путь       = '+ExtractFilePath (fullFileName));
ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

Примечание