TURBO PASCAL

Прочие функции

Синтаксис: procedure ClrEol; Действие:

Очищает текущую строку (строка, в которой находиться курсор) от позиции, в которой находится курсор, до конца строки, закрашивая ее текущим цветом, заданным процедурой

TextBackGround.

ClrScr

Синтаксис:

procedure ClrScr;

Действие:

Очищает текущее (заданное процедурой window) окно экрана, закрашивая его цветом, заданным процедурой TextBackGround.

Delay

Синтаксис:

procedure Delay(Задержка: word);

Действие:

Обеспечивает задержку выполнения программы в миллисе-j кундах.

Dispose

Синтаксис:

procedure Dispose(var p);

Действие:

Освобождает память, занимаемую динамической переменной, на которую указывает р.

Eoln

Синтаксис:

function Eoln [ (var F: text)]: boolean;

Действие:

Если при обращении к функции Eoln параметр не указан, то функция проверяет, не является ли очередной символ, читаемый из буфера клавиатуры, символом "новая строка". Если является, то функция возвращает значение true, в противном случае — false. Если параметр указан, то функция аналогичным образом проверяет очередной символ текстового файла, связанного с файловой переменной, указанной при вызове функции.

GotoXY

Синтаксис:

procedure GoToXY(x,y: byte);

Действие:

Перемещает курсор в точку экрана, имеющую координаты (х,у).

Halt

Синтаксис:

Procedure Halt [ (КодЗавершения: word) ];

Действие:

Завершает выполнение программы и передает управление операционной системе.

New

Синтаксис:

procedure New (var p) ;

Действие:

Выделяет память для динамической переменной и присваивает указателю р адрес выделенной области.

ParamCount

Синтаксис: function ParamCount : word;

Действие: Возвращает количество параметров командной строки.

ParamStr

Синтаксис:

function ParamStr (W: word): string;

Действие:

Возвращает параметр командной строки, номер которого указан при обращении к функции. Значением paramstr(O) является путь к файлу выполняемой программы и его имя (например, c:\tp\exe&tpu\myprog.exe).

ReadKey

Синтаксис:

function ReadKey : char;

Действие:

Возвращает символ, соответствующий нажатой клавише. Используя функцию ord, можно получить код нажатой клавиши.

Если нажата служебная клавиша (например, клавиша перемещения курсора), то функция ReadKey возвращает символ с кодом 0. В этом случае для идентификации служебной клавиши следует еще раз вызвать функцию ReadKey, которая теперь вернет код служебной клавиши.


Ниже приведены коды	некоторых часто	используемых клавиш.
Клавиша	Код
<Esc>	27
<Backspace>	8
<Enter>	13
<Space>	32
<Kypcop вверх>	0;72
<Курсор вниз>	0;80
<Курсор влево	0;75
<Курсор вправо>	0;77

TextBackGround

Синтаксис:

procedure TextBackGround(Цвет: byte);

Действие:

Задает цвет фона сообщений, выводимых инструкциями write и writein. В качестве параметра цвет может использоваться одна из перечисленных ниже именованных констант.

Константа	Цвет	Номер цвета
Black	Черный	0
Blue	Синий	1
Green	Зеленый	2
Cyan	Бирюзовый	3
Red	Красный	4
Magenta	Сиреневый	5
Brown	Коричневый	6
LightGray	Белый	7

TextColor

Синтаксис:

procedure TextColor (Ifaer: byte) ;

Действие:

Устанавливает цвет символов сообщений, выводимых инстр^ циями write и writein. В качестве параметра цвет может испол| зеваться одна из перечисленных ниже именованных констант.

Константа	Цвет Номер цвета
Black	Черный	0
Blue	Синий	1
Green	Зеленый	2
Cyan	Бирюзовый	3
Red	Красный	4
Magenta	Сиреневый	5
Brown	Коричневый	6
LightGray	Белый	7
DarkGray	Серый	8
LightBlue	Голубой	9
LightGreen	Светло-зеленый	10
LightCyan	Светло-бирюзовый	11
LightRed	Светло-красный (алый)	12
LightMagenta	Светло-сиреневый	13
Yellow	Желтый	14
White	Белый, яркий	15