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

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

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

Функция FileExpand.

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

    Function FileExpand(Dest, Name : PChar) : PChar;

  • Описание:

    Расширяет имя файла до полного.

  • Замечания:

    Расширяет имя файла переданное как параметр Name до полного. Возникающее в результате имя преобразовывается в верхний регистр и состоит из:

    - Символа дисковода
    - Двоеточия
    - Пути к каталогу
    - Имени файла

    Все ссылки типа '.' и '..' удаляются и все компоненты имен и расширении усекаются до 8-и и 3-х символов соответственно. Полученное имя файла записывается в переменную Dest.

    Пусть текущий диск и каталог будет C:\SOURCE\PAS, тогда следующие обращения к FileExpand вернут такие значения:

    FileExpand(S, 'test.pas') = 'C:\SOURCE\PAS\TEST.PAS'
    FileExpand(S, '..\*.TPW') = 'C:\SOURCE\*.TPW'
    FileExpand(S, 'c:\bin urbo.exe') = 'C:\BIN\TURBO.EXE'

    Чтобы разделить результат функции FileExpand на имя дисковода, имя каталогов и имя файла можно использовать функцию FileSplit.

  • Пример:

    { Пример программы для функции FileExpand }
    Uses WinDos;
    Const MyFile : PChar = 'TEST.FIL';
    Var Where : PChar;
    Begin
    GetMem(Where, 80);
    FileExpand(Where, MyFile);
    WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where);
    End.



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