Синтаксис:
function EOF(var F) : boolean;
Действие:
Проверяет, не достигнут ли конец файла (end of file) при чтении из файла, связанного с файловой переменной F. Если указатель чтения достиг конца файла, то функция eof возвращает значение true, в противном случае — false.
Синтаксис:
procedure Close(var F) ;
Действие:
Закрывает файл, связанный с файловой переменной F
Синтаксис:
procedure Assign(var F; ИмяФайла: string);
Действие:
Связывает файловую переменную F с конкретным файлом.
Синтаксис:
procedure Append(var F: text);
Действие:
Открывает существующий файл, связанный с файловой переменной f в режиме добавления в конец файла. При попытке открыть несуществующий файл появляется ошибка времени выполнения программы.
Синтаксис:
procedure SetTexStyle{Шрифт, Ориентация, Размер: word);
Действие:
Устанавливает шрифт, размер и ориентацию текста, выводимого
процедурами outTextxY и outText. В качестве параметра шрифт можно использовать одну из перечисленных ниже констант.
Константа |
Значение |
Шрифт |
DefaultFont |
0 |
Стандартный. Каждый выводимый символ формируется в квадрате размером 8 на 8 пикселей |
TriplexFont |
1 |
Triplex шрифт |
SmallFont |
2 |
Мелкий |
SansSerifFont |
3 |
SansSerif шрифт |
GothicFont |
4 |
Готический |
Примечание
В шрифтах, отличных от стандартного (DefaultFont), букв русского алфавита нет.
Параметр Ориентация задает ориентацию выводимого процедурами outText и OutTextxY текста. Текст может быть ориентирован обычным образом (значение параметра ориентация в этом случае равно именованной константе Normal) или вертикально, т. е.
снизу вверх (в этом случае значение параметра ориентация равно Vertical).
Синтаксис:
procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word) ;
Действие:
Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle И Др.).
Параметр тип линии, в качестве которого обычно используется одна из именованных констант, определяет вид линии.
Константа |
Тип линии |
SolidLn |
Сплошная, непрерывная |
DottedLn |
Пунктирная, с постоянной длиной штрихов |
CenterLn |
Штрих-пунктирная линия |
DashedLn |
Пунктирная, длина штрихов чуть больше, чем у линии типа DottedLn |
DashedLn |
Пунктирная, длина штрихов чуть больше, чем у линии типа DottedLn |
Параметр толщлна определяет толщину линии. Линия может быть обычной толщины (константа Normwidth) или утолщенная
(константа ThickWidth).
Параметр образец используется в том случае, если процедура SetLinestyle устанавливает тип линии, определяемый программистом. Значением параметра образец должна быть четырехразрядная шестнадцатеричная константа, кодирующая отрезок линии длиной в 16 пикселов.
Синтаксис:
procedure Rectangle{xl,yl,x2,y2: integer);
Действие:
Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.
Синтаксис:
procedure PutPixel(х,у: integer; Цвет: word);
Действие:
Окрашивает пиксел, точку с координатами (х,у), цветом цвет. В качестве параметра цвет обычно используют именованную
КОНСТАНТу.
Синтаксис:
procedure PieSlice(х,у: integer; УголНачала,УголКонца, Радиус: word);
Действие:
Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из точки (х,у) в сторону
возрастания координаты х. ЕСЛИ УголНачала равен 0°, а УголКонца
равен 360°, то процедура PieSlice вычерчивает круг.
Сектор закрашивается в соответствии со стилем, заданным процедурой SetFiiisiyle, линия и границы вычерчиваются цветом, установленным процедурой setcoior.
Синтаксис:
procedure OutTextXY(x, у: integer; Текст: string);
Действие:
Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами (я, у).
Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — процедурой SetTextStyle.