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


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

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

Процедуры обработки файлов

Procedure FindFirst(Path: String; Attr: Byte; var Search: SearchRec) Ищет в указанном или текущем каталоге первый файл, соответствующий заданному имени файла и набору атрибутов.

Procedure FindNext (var Search: SearchRec) Возвращает следующий файл, соответствующий имени и атрибутам, указанным в предыдущем вызове FindFrst.

Procedure GetFAttrtvar F; var Attr; Byte) Возвращает атрибуты файла.

Procedure SetFAttr (var F; Attr: Byte) Устанавливает атрибуты файла.

Procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr) Разбивает имя файла Path на 3 составные части (каталог, имя файла, расширение).

Функции обработки файла

Function FExpand(Name; PathStr): PathStr Берет имя файла Name и возвращает полное имя файла (устройство, каталог, имя и расширение).

Function FSearch(Name: PathStr; DirList; String): PathStr Ищет файл Name в списке DirList каталогов. Элементы списка разделяются точкой с запятой.

Процедуры обработки процессов

Procedure Exec(Name: PathStr; CmdLine: String) Выполняет заданную программу Name с указанной командной строкой CmdLine.

Procedure Keep (Code: Word) Завершает программу и оставляет ее резидентной в памяти.

Procedure SwapVectors Обменивает сохраненные векторы прерываний из переменных SaveIntXX c текущими векторами.

Функции управления программой

Function DosExitCode: Word Возвращает код завершения подпроцесса.

Функции управления средой

Function EnvCount: Integer Возвращает число переменных окружения, содержащихся в среде ДОС.

Function EnvStr (Index: Integer): String Возвращает указанную переменную окружения ДОС.

Function GetEnv(EnvVar: String): String Возвращает значение указанной переменной окружения ДОС.

Дополнительные процедуры

Procedure GetCBreak (var CBreak: Boolean) Возвращает состояние проверки CTRL + Break.

Procedure SetCBreak(CBreak: Boolean) Устанавливает состояние проверки CTRL + Break в ДОС.

Procedure GetVerify(var Verify: Boolean) Возвращает состояние флага верификации в ДОС.

Procedure SetVerifу (Verify: Boolean) Устанавливает состояние флага верификации в ДОС.

Дополнительные функции

Function DosVersion: Word Возвращает номер версии ДОС.

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