FileSplit (функция) (модуль WinDos)

Язык:
Русский
English

 FileSplit (функция)     (модуль WinDos)


Разбивает имя файла на три его составляющие.

Объявление

 Function FileSplit(Path, Dir, Name, Ext : PChar) : Word

Режим

Windows, Real, Protected

Замечания

Разбивает имя файла, определенное в переменной Path на три компонента:

   - Параметр Dir равняется пути к файлу, включая диск и каталоги с
     любыми начальными и конечными левыми наклонными чертами
   - Параметр Name равняется имени файла
   - Параметр Ext раняется расширению файла с предшествующей точкой

Если строковый параметр компонента равен NIL, то соответствующая часть пути не сохраняется. Если путь не содержит данный компонент, то полученная строка компонента будет пустой. Максимальные длины строк, возвращенных в параметрах Dir, Name и Ext определяются константами fsDirectory, fsFileName и fsExtension.

Возвращаемое значение - комбинация констант fcDirectory, fcFileName и fcExtension, указывающая на то, какие компоненты были представлены в пути. Если имя или расширение содержит любые символы масок (* или ?), то в возвращаемом значении устанавливается флаг fcWildcards.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для функции FileSplit }

uses Strings, WinCrt, WinDos;

var
  Path : array[0 .. fsPathName] of Char;
  Dir  : array[0 .. fsDirectory] of Char;
  Name : array[0 .. fsFileName] of Char;
  Ext  : array[0 .. fsExtension] of Char;

begin
 Write('Имя файла (WORK.PAS): ');
 ReadLn(Path);
  FileSplit(Path, Dir, Name, Ext);
 if Name[0] = #0 then
   StrCopy(Name, 'WORK');
 if Ext[0] = #0 then
   StrCopy(Ext, '.PAS');
 StrECopy(StrECopy(StrECopy(Path, Dir), Name), Ext);
 WriteLn('Полученное имя : ', Path);
end.
Тэги: FileSplit
| G+
Код для вставки: :: :: :: ::
Поделиться: // //