Правила форума
FSplit (процедура) (модуль Dos)Язык:
Русский
English
FSplit (процедура) (модуль Dos)
Разбивает имя файла на три его компонента.
Объявление
Procedure FSplit (Path : PathStr; Var Dir : DirStr;
Var Name : NameStr; Var Ext : ExtStr);
Режим
Real, Protected
Замечания
Типы PathStr, DirStr, NameStr и ExtStr определены в модуле Dos.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры 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.
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.
::
::
::
