HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
 

Turbo Pascal Documentation

Процедура GetFTime

Модуль Dos


     Функция: Возвращает дату и время последней записи  фай-
ла.
     Описание: GetFTime(var f; var время)
     Примечания: Параметр f должнен представляеть собой фай-
ловую  переменную  (соответствующую типизованному, нетипизо-
ванному или текстовому файлу) для которого должно  быть  вы-
полнено присваивание файловой переменной, но который не дол-
жен быть открыт. Значение времени, возвращаемое в  параметре
"время",  может быть распаковано путем обращения к процедуре
UnpackTime. Коды ошибок можно  получить  с  помощью  функции
DosError. Единственным возможным кодом ошибки является код 6
(недопустимая обработка файла).
     Ограничения: Файл должен быть открыт.
     Прочее: См. также процедуры SetFTime, PackTime, UnPack-
Time.

-----------------------------------------------------------
Функция GetGraphMode                         Модуль Graph
-----------------------------------------------------------
     Функция: Возвращает текущий графический режим.
     Описание: GetGraphMode
     Примечания: Данная процедура возвращает текущий  графи-
ческий  режим,  установленный с помощью процедур InitGraph и
SetGraphMode. Значения режима представляет собой целое число
в диапазоне от 0 до 5 и зависит от текущего драйвера.
     Определены следующие константы режима:

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Графический   Имя     Значение   Столбцов   Палитра  Страниц
  драйвер  константы              х строк
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CGA         CGAC0         0      320x200        C0        1
            CGAC1         1      320x200        C1        1
            CGAC2         2      320x200        C2        1
            CGAC3         3      320x200        C3        1
            CGAHi         4      640x200     2 цвета      1

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MCGA        MCGAC0        0      320x200        C0        1
            MCGAC1        1      320x200        C1        1
            MCGAC2        2      320x200        C2        1
            MCGAC3        3      320x200        C3        1
            MCGAMed       4      640x200     2 цвета      1

EGA         EGALo         0      640x200     16 цветов    1
            ЗЙДКк         1      640щ350     16 цветов    2

ЗЙД64       ЗЙД64Ор       0      640щ200     16 цветов    1
            ЗЙД64Кк       1      640щ350      4 цвета     1

EGA-        EGAMonoHi     3      640x350      2 цвета     1*

MONO        EGAMonoHi     3      640x350      2 цвета    1**

HERC        HercMonoHi    0      720x348      2 цвета     2

ATT400      ATT400C0      0      320x200         C0       1
            ATT400C1      1      320x200         C1       1
            ATT400C2      2      320x200         C2       1
            ATT400C3      3      320x200         C3       1
            ATT400Med     4      640x200       2 цвета    1
            ATT400Hi      5      640x200       2 цвета    1

VGA         VGALo         0      640x200      16 цветов   2
            VGAMed        1      640x350      16 цветов   2
            VGAHi         2      640x480      16 цветов   1

PC3270      PC3270Hi      0      640x200       2 цвета    1

8514        IBM8514Lo     0      640x480      256 цветов  1
8514        IBM8514Hi     0     1024x768      256 цветов  1

* - 64К на плате EGAMono
** - 256К на плате EGAMomo
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры ClearDevice, DetectGraph,
InitGraph, RestoreCrtMode, SetGraphMode.
     Пример:

  uses Graph;
  var
    Gd, Gm : integer;
    Mode : integer;
  begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
      Halt(1);
   OutText('Для выхода из средств графики нажмите RETURN:');
   Readln;
   RestoreCRTMode;
Writeln('Теперь вы в текстовом режиме');
Writeln('Для перехода в графический режим нажмите RETURN');
   Readln;
   SetGraphMode(GetGraphMode);
   OutTextXY(0, 0, 'Вы снова в графическом режиме');
OutTextXY(0, TextHeight('H'), 'Для выхода нажмите RETURN');
   Readln;
   CloseGraph;
end.



уличное освещение
HOME