• Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;


  • Иллюстрированный самоучитель по 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, чтобы сообщить об этом редактору.