Функция FSplit()

Модуль DOS

Разбивает имя файла на три его компонента.

Объявление:

Procedure FSplit (Path : PathStr; Var Dir : DirStr;
               Var Name : NameStr; Var Ext : ExtStr);

Режим:

Real, Protected

Замечание:

Типы PathStr, DirStr, NameStr и ExtStr определены в модуле Dos.

Пример:

{ Пример программы для процедуры FSplit }

Uses Dos;

Var P : PathStr;
    D : DirStr;
    N : NameStr;
    E : ExtStr;

Begin
 Write('Имя файла (WORK.PAS): ');
 ReadLn(P);
 FSplit(P, D, N, E);
 If N = '' Then N:='WORK';
 If E = '' Then E:='.PAS';
 P:=D+N+E;
 WriteLn('Полученное имя: ', P);
End.