过程与函数
过程与函数表格
过程或函数首部形式 | 说明 |
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)为右下角坐标;必须在设置模式允许范围内。窗口定义后,所有显示均在窗口进行 |
展开表格
Testmode的显示模式常数表
常量标识符 | 常数值 | 显示模式 |
BW40 | 0 | 彩色显示卡40*25黑白模式 |
CO40 | 1 | 彩色显示卡40*25彩色模式 |
C40 | 1 | 同上,用于兼容3.0版本 |
BW80 | 2 | 彩色显示卡80*25黑白模式 |
CO80 | 3 | 彩色显示卡80*25彩色模式 |
展开表格
Textcolor等的前景和背景颜色常数表
常量标识符 | 常数值 | 颜色 | 前景 | 背景 | 常量标识符 | 常数值 | 颜色 | 前景 | 背景 |
Black | 0 | 黑 | Y | Y | DarkGray | 8 | 深灰 | Y | Y |
Blue | 1 | 蓝 | Y | Y | LightBlue | 9 | 浅灰 | Y | Y |
Green | 2 | 绿 | Y | Y | LightGreen | 浅绿 | Y | Y | |
Cyan | 3 | 青 | Y | Y | LightCyan | 11 | 浅青 | Y | Y |
Red | 4 | 红 | Y | Y | LightRed | 12 | 浅红 | Y | Y |
展开表格
变量
变量表格
变量名 | 类型 | 单元中作用 |
checkbreak | boolean | 程序在执行下一个write或writeln语句之前是否做Ctrl+Break检查 |
checkeof | boolean | 允许文件结束的Ctrl+Z检查 |
directvideo | boolean | 为true时采用直接访问视频内存方式 |
checksnow | boolean | 为true时进行雪花过滤控制 |
lastmode | word | 保存上一次显示模式 |
展开表格
lastmode文件注释
bit0~bit2:前景颜色(bit0:Blue;bit1:Green;bit2:Red)
bit3:亮度(Brightness)
bit4~bit6:背景颜色(bit4:Blue;bit5:Green;bit6:Red)
bit7:是否闪烁(Blinking)
样例程序
设置屏幕为25行*40列正文模式,并改变字符的前景颜色,背景颜色.
program testtext; //Pascal
uses crt;
begin
textmode(c40);
textbackground(blue);
textcolor(red);
writeln('text mode test');
textbackground(green);
textcolor(blink+yellow);
writeln('blink test');
end.