Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура FSplit.

  • Объявление:

    Procedure FSplit (Path : PathStr; Var Dir : DirStr; Var Name : NameStr; Var Ext : ExtStr);

  • Описание:

    Разбивает имя файла на три его компонента.

  • Замечания:

    Типы PathStr, DirStr, NameStr и ExtStr определены в модуле Dos.

  • Пример:

    { Пример программы для процедуры 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.



Вернуться к оглавлению справочника