Правила форума
Fsplit.PASЯзык:
Русский
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.
::
::
::
