Turbo Pascal Documentation

Процедура FSplit

Модуль Dos

     Функция: Разделяет имя файла на три компоненты.
     Описание: FSplit(маршрут: PathStr; var каталог: DirStr;
var имя: NameStr; var расшир: ExtStr)
     Примечания: Имя файла, заданное  параметром  "маршрут",
разделяется  на три его компоненты. Для переменной "каталог"
устанавливается значение буквенной метки дисковода и маршру-
та  доступа  к каталогу со всеми начальным конечными знаками
обратной косой черты, переменной "имя" присваивается  значе-
ние  имени  файла,  а  переменной "расшир" - расширение мени
файла с предшествующей точкой. Каждый из  этих  составляющих
строку  элементов может оказаться пустым (в том случае, если
"маршрут" не содержит соответствующего элемента).
     Типы PathStr, DirStr, ExtStr и NameStr определены в мо-
дуле Dos следующим образом:

   type
    PathStr = string[79];
    DirStr  = strig[67];
    NameStr = string[8];
    ExtStr  = string[4];

     При разделении имени файла на компоненты 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.