fillchar.pas

{FileSplt.PAS}
 
{ Пример программы для FileSplit Function.}
 
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.