pascal crt单元讲解

谁又比较详细的讲解

crt单元
crt单元定义的过程或函数首部形式及说明

过程或函数首部形式 说明
procedure assigncrt(var f:text); 将文本文件f与显示器CRT建立联系
function keypressed:boolean; 检测是否有键按下,有则函数值为true
function readkey:char; 等待从键盘输入一个字符
procedure textmode(mode:integer); 设置字符显示模式,mode值见下表,可以用常量标识符或常数值
procedure window(x1,y1,x2,y2:byte); 定义字符窗口:(x1,y1)为左上角坐标,(x2,y2)为右下角坐标;必须在设置模式允许范围内.窗口定义后,所有显示均在窗口进行
procedure gotoxy(x,y:byte); 将光标移至(x,y)处
function wherex:byte; 返回当前窗口中光标所在的列数(相对当前窗口)
function wherey:byte; 返回当前窗口中光标所在的行数(相对当前窗口)
procedure clrscr; 清除当前窗口或屏幕
procedure clreol; 从光标位置开始清除至本行末尾(不超过窗口右边界)
prlcedure insline; 在当前光标处插入一行
procedure deline; 删除光标所在的当前行
procedure textcolor(color:byte); 设置正文前景颜色
procedure textbackground(color:byte); 设置正文背景颜色
procedure lowvideo; 选择低亮度显示字符
procedure highvideo; 选择高亮度显示字符
procedure normvideo; 选择正常亮度显示字符
procedure delay(ms:word); 等待或延迟ms个毫秒
procedure sound(hz:word); 以hz指定的频率发声
procedure nosound; 关闭内部扬场声器
显示模式常数表

常量标识符 常数值 显示模式
BW40 0 彩色显示卡40*25黑白模式
CO40 1 彩色显示卡40*25彩色模式
C40 1 同上,用于兼容3.0版本
BW80 2 彩色显示卡80*25黑白模式
CO80 3 彩色显示卡80*25彩色模式
C80 3 同上,用于兼容3.0版本
Mono 7 单色显示卡80*25模式
Font 8*8 256 用于ROM字模
前景和背景颜色常数表

常量标识符 常数值 颜色 前景 背景 常量标识符 常数值 颜色 前景 背景
Black
Blue
Green
Cyan
Red
Magenta
Brown
LightGray 0
1
2
3
4
5
6
7 黑
蓝
绿
青
红
洋江
棕
浅灰 Y
Y
Y
Y
Y
Y
Y
Y Y
Y
Y
Y
Y
Y
Y
Y DarkGray
LightBlue
LightGreen
LightCyan
LightRed
LightMagenta
Yellow
White 8
9
10
11
12
13
14
15 深灰
浅灰
浅绿
浅青
浅红
浅洋红
黄
白 Y
Y
Y
Y
Y
Y
Y
Y
Blank 128 闪烁
crt单元中的变量

变量名 类型 单元中作用
checkbreak boolean 程序在执行下一个write或writeln语句之前是否做Ctrl+Break检查
checkeof boolean 允许文件结束的Ctrl+Z检查
directvideo boolean 为true时采用直接访问视频内存方式
checksnow boolean 为true时进行雪花过滤控制
lastmode word 保存上一次显示模式
textattr byte 保存当前的正文前景与背景颜色
windmin word 保存当前窗口左上角坐标(低字节为列坐标,高字节为行坐标)
windmax word 保存当前窗口右下角坐标(低字节为列坐标,高字节为行坐标)
crt单元主要用于正文模式下字符的显示和正文窗口的设置.显示器一屏可以显示25(行)*80(列)个字符.每个字符除自身的字形外还有字符本身的颜色(称为前景色)和字符空白区的底色(称为背景色).字符和颜色信息被存贮在特定的显示存贮区内.每一个字符信息占用两个字节:第一个字节存贮该字符的ACSII码值,而第二个字节则存贮该字符的前景色,背景颜色等属性信息.属性字节的含义见下:
bit0~bit2:前景颜色(bit0:Blue;bit1:Green;bit2:Red)
bit3:高亮度(Brightness)
bit4~bit6:背景颜色(bit4:Blue;bit5:Green;bit6:Red)
bit7:闪烁(Blinking)
例:设置屏幕为25行*40列正文模式,并改变字符的前景颜色和背景颜色.
program testtext(output);
uses crt;
begin
textmode(c40);
textbackground(blue);
textcolor(red);
writeln('text mode test');
textbackground(green);
textcolor(blink+yellow);
writeln('blink test');
end.