Системное программирование в UNIX средствами Free Pascal




Описание


uses linux;

Function BaseName(Const Path;Const Suf:Pathstr):Pathstr;

Function DirName(Const Path:Pathstr):Pathstr;

Procedure FSplit(const Path:PathStr; var Dir:DirStr; Var Name:NameStr;

                 Var Ext:ExtStr);

BaseName выделяет из полного пути Path имя файла, обрезая окончание Suf, если оно существует. Для каталогов завершающий слэш всегда убирается (за исключением корневого каталога).

DirName возвращает часть пути, соответствующую имени каталога. Это будет часть параметра Path до завершающего слэша, или ничего в его отсутствие.

FSplit разбивает полное имя файла на 3 части: путь Path, имя Name и расширение ext. Расширением считаются все символы, следующие за последней точкой.

Например:

uses Linux;

var

  Path,Name,Ext : string;

 

begin

  FSplit(ParamStr(1),Path,Name,Ext);

  WriteLn('Split ',ParamStr(1),' in:');

  WriteLn('Path     : ',Path);

  WriteLn('Name     : ',Name);

  WriteLn('Extension: ',Ext);

end.




Содержание  Назад  Вперед