Delphi-Help

Описание

function ExtractFileDir ( const FullFileName : string ) : string;

Функция ExtractFileDir извлекает из 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

Примечание