IPB

> Fsplit.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {Fsplit.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the FSplit procedure.}

  uses Dos;

 var
   P: PathStr;
   D: DirStr;
   N: NameStr;
   E: ExtStr;
 begin
   Write('Filename (WORK.PAS): ');
   Readln(P);
   FSplit(P, D, N, E);
   if N = '' then
     N := 'WORK';
   if E = '' then
     E := '.PAS';
   P := D + N + E;
   Writeln('Resulting name is ', P);
 end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"