Процедура 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 — витягує з повного імені файлу коротке ім'я файлу.
