Var WindowTitle: array[0..79] of Char;
По умолчанию используется значение, равное полному имени маршрута файла .EXE программы. Записав в WindowTitle перед созданием окна CRT новое значение, вы можете изменить заголовок. Например:
StrCopy(WindowTitle, 'Hello, Word');
Процедуры и функции
В следующих таблицах перечисляются процедуры и функции, которые можно найти в модуле WinCrt.
─────────────────────────────────────────────────────────────────
Процедура Описание
─────────────────────────────────────────────────────────────────
AssignCrt Назначает текстовый файл для окна CRT.
ClrEоl Очищает все символы, начиная от позиции
курсора до конца строки, без перемещения
курсора.
ClrScr Очищает экран и помещает курсор в верхнем
левом углу.
CursorTo Перемещает курсор в точку на виртуальном
экране с заданными координатами.
DoneWinCrt Уничтожает окна CRT.
GоtоХY Выполняет позиционирование курсора. Х - это
горизонтальная позиция, Y - вертикальная
позиция виртуального экрана.
InitWinCrt Инициализирует окно crt.
ScrollTo Прокручивает окно CRT, чтобы видна была
точка с заданными координатами.
TrackCursor Прокручивает окно CRT, чтобы курсор был
видимым.
WriteBuf Выводит в окно CRT блок символов.
WriteChar Выводит в окно CRT отдельный символ.
─────────────────────────────────────────────────────────────────
─────────────────────────────────────────────────────────────────
Функция Описание
─────────────────────────────────────────────────────────────────
KeyРrеssеd Возвращает значение Truе, если клавиша на
клавиатуре нажата и Falsе - в противном
случае.
ReadBuf Считывает из окна CRT строку.
RеаdKеу Считывает символ с клавиатуры.
WherеХ Возвращает координату Х для текущей позиции
курсора, относящуюся к текущему окну. Х
представляет собой горизонтальную
позицию.
WhereY Возвращает координату Y для текущей позиции
курсора, относящуюся к текущему окну. Y
представляет собой вертикальную позицию.
─────────────────────────────────────────────────────────────────
Далее процедуры и функции описываются более подробно.
Процедура InitWinCrt
Данная подпрограмма создает окно CRT, если оно еще не создано.
procedure InitWinCrt;
Операции Read, Readln, Write, Writeln с файлом, которому присвоено CRT, автоматически вызывают процедуру InitWinCrt для обеспечения существования окна CRT. Для определения характеристик окна CRT процедура InitWinCrt использует константы WindowOrg, Wi
ndowSize и ScreenSize, а также переменную WindowTitle.
Процедура DoneWinCrt
Уничтожает окно CRT, если оно еще не отменено.
procedure DoneWinCrt;
Вызов данной процедуры перед завершением программы предотвращает переход окна CRT в неактивное состояние. Таким образом, пользователю не нужно будет закрывать окно вручную.
Процедура WriteBuf
Записывает в окно CRT блок символов.
procedure WriteBuf(Buffer: PChar; Count: Word);
Buffer указывает на первый символ блока, а Count содержит число записываемых символов. Если AutoTracking имеет значение True, то окно CRT при необходимости прокручивается, обеспечивая видимость курсора после вывода блока символов.
Процедура WriteChar
Записывает в окно CRT один символ.
procedure WriteChar(Ch: Char);
Функция KeyPressed
Считывает символ с клавиатуры.
function KeyPressed: Char;
Эхоотображение символа на экране не выполняется.
Замечание: Функция KeyPressed поддерживает только стандартные коды клавиш ASCII. Расширенные коды, генерируемые функциональными клавишапи и клавишами перемещения курсора данной функцией не поддерживаются.
Функция ReadBuf
Вводит строку из окна CRT.
function ReadBuf(Buffer: PChar; Count: Word): Word;
Buffer указывает на буфер строки, в котором имеется место для Count символов. Может вводиться до Count - 2 символов, а когда пользователь нажимает клавишу Enter, к концу строки автоматически добавляется маркер конце строки (#13 и #14). Если переменна
я CheckEof имеет значение True, то пользователь может также завершить строку, нажав Ctrl+Z. В этом случае строка будет содержать маркер конца файла (#26), который присоединяется к концу строки. Возвращаемое значение равно числу считанных символов, включая
маркер конца строки или конца файла,
Процедура GotoXY
Процедура GotoXY перемещает курсор в точку с заданными координатами виртуального экрана.
procedure GotoXY(X, Y: Integer);
Верхний левый угол соответствует точке с координатами (1,1). Переменная Cursor устанавливается в значение (X-1,Y-1), так как в ней хранится позиция курсора относительно точки (0,0), а не (1,1).
Замечание: Процедуры GotoXY, WhereX, WhereY предусмотрены в основном для совместимости с модулем Crt, обеспечиваемым Турбо Паскалем для DOS. Координаты этих подпрограмм считаются от 1 и не совпадают с переменными модуля WinCrt. Поэтому мы рекомендуем
вам использовать вместо них подпрограмму CursorTo и переменную Cursor.
Функция WhereX
Возвращает координату X текущей позиции курсора.
function WhereX: Integer;
Возвращаемое значение считается от 1 и соответствует Cursor.X + 1.
Функция WhereY
Возвращает координату Y текущей позиции курсора.
function WhereY: Integer;
Возвращаемое значение считается от 1 и соответствует Cursor.Y + 1.
Процедура CrlScr
Очищает экран и возвращает курсор в верхний левый угол.
procedure ClrScr;
Процедура ClrEol
Стирает все символы от позиции курсора до конца строки. Курсор не перемещается.
Процедура CursorTo
Перемещает курсор в точку с заданными координатами экрана.
procedure CursorTo(X, Y: Integer);
Верхний левый угол экрана соответствует точке с координатами (0,0). Переменная Cursor устанавливается в значение (X,Y).
Процедура ScrollTo
Выполняет прокрутку окна CRT, чтобы в левом верхнем углу экрана находилать точка с координатами (X,Y).
procedure ScrollTo(X, Y: Integer);
Точка (0,0) соответствует верхнему левому углу виртуального экрана. Переменная Origin устанавливается в значение (X,Y).
Процедура TrackCursor
Прокручивает окно CRT, если необходимо обеспечить видимость курсора.
procedure TrackCursor;
Процедура AssignCrt
Связывает с окном CRT текстовый файл.
procedure AssignCrt(var F: Text);
Последующие операции Write и Writeln для этого файла приведут к выводу в окно CRT, а операции Read и Readln - к считыванию из окна CRT.