Процедура ProcessPath в Delphi – разделяет строку диск/путь/имя файла на ее составляющие части.
FileCtrl unit
procedure ProcessPath (const FullName : string; var Drive : Char; var Dir : string; var FileName : string);
Процедура ProcessPath разбивает полное имя файла FullName на части: Диск(Drive), Каталог(Dir) и Имя файла(FileName).
Процедура ProcessPath: Спрашиваем пользователя об имени файла, и показываем непосредственно составляющие части
var
selectedFile : string;
drive : char;
path, fileName : string;
begin
// Просим пользователя выбрать файл
if PromptForFileName(selectedFile)
then
begin
// Отображение этого полного значения файла/пути
ShowMessage('Выбранный файл = '+selectedFile);
// Разбиение этого полного значения файл/путь на непосредственно составляющие части
ProcessPath(selectedFile, drive, path, fileName);
ShowMessage('диск = '+drive);
ShowMessage('путь = '+path);
ShowMessage('имя файла = '+fileName);
end;
end;
Результат
{Пользователь выбрал C:\Files\data.txt и нажал OK}
Выбранный файл = C:\Files\data.txt
диск = C
путь = \Files
имя файла = data.txt
Похожие функции, процедуры и команды
ExtractFileDir — извлекает из полного имени файла название папки.
ExtractFileDrive — извлекает из полного имени файла название диска.
ExtractFileExt — извлекает из полного имени файла его расширение.
ExtractFileName — извлекает из полного имени файла краткое имя файла.
