Правила форума
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 }
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.
::
::
::
