Иллюстрированный самоучитель по Turbo Pascal

Переменные. Процедуры и функции.

var
DosError: Integer;

Значение, запомненное в DosError, представляет собой код ошибки операционной системы:

  • 0 – нет ошибки
  • 2 – файл не найден
  • 3 – путь не найден
  • 5 – доступ запрещен
  • 6 – неверный обработчик
  • 8 – нет памяти
  • 10 – неправильная среда
  • 11 – неправильный формат
  • 18 – больше нет файлов

Процедуры и функции

Процедуры даты и времени

Procedure GetDate (var Year, Month, Day, DayOfWeek: Word) Возвращает текущую дату.

Procedure GetFTime (var F; var Time: Longlnt) Возвращает дату и время последнего обновления файла.

Procedure GetTime(var Hour, Minute, Second, Sec100: Word) Возвращает текущее время.

Procedure PackTime(var Pack: DataTime; var Time; Longlnt) Преобразует запись Pack в,4-байтовое упакованное значение даты и времени типа Longlnt, используемое процедурой SetFTime. Поля записи DateTime не проверяются на диапазон.

Procedure SetData (Year, Month, Day: Word) Устанавливает текущую дату.

Procedure SetFTime (var F; Time; Longlnt) Устанавливает время и дату последнего обновления файла.

Procedure SetTime(Hour, Minute, Second, SeclOO: Word) Устанавливает текущее время.

Procedure UnpackTime(Time: Longlnt; var Pack: DataTime) Преобразует 4-байтовое упакованное значение даты и времени, возвращаемое GetFTime, FindFirst или FindNext, в распакованную запись типа DateTime.

Процедуры обслуживания прерываний

Procedure GetIntyec (IntNo: Byte; var Vec: Pointer) Возвращает адрес, хранящийся в указанном векторе прерывания.

Procedure Intr (IntNo; Byte; var R: Registers) Выполняет указанное программное прерывание.

Procedure MSDos (var R: Registers) Выполняет функцию операционной системы.

Procedure SetIntVec (IntNo: byte; P: Pointer) Устанавливает адрес для указанного вектора прерывания.

Функции статуса диска

Function DiskFree(Disk: Word): LongInt Возвращает число свободных байт на указанном диске;

Function DiskSize(Disk: Word): LongInt Возвращает полный объем указанного диска в байтах.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.