PostHeaderIconDelphi. Процедура ProcessPath ( const FileName: string; var Drive: Char; var DirPart: string; var FilePart: string );

Процедура ProcessPath ( const FileName: string; var Drive: Char; var DirPart: string; var FilePart: string );

Модуль: FileCtrl

Описание
Процедура анализирует полное имя файла FaleName и возвращает отдельно имя диска Drive, каталог DirPart и имя файла FilePart. Если файл не существует, то возникает ошибка. Когда полное имя файла содержит больше одного каталога, также возникает ошибка.

Пример
var
   Dir, S: string;
   Drive: Char
begin
...
   ProcessPath('C:\DIR1\.txt', Drive, Dir, S);
// Drive:= 'C';   Dir:= '\DIR1';   S:= 'work.txt'
...
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.