谁能详细介绍一下pascal中的crt单元

来源:百度知道 编辑:UC知道 时间:2024/05/26 13:15:17
同上,多谢!!
感谢这位朋友,我的crt已经修正。
但我想问的是crt单元到底有哪些功能,为什么如此多的程序要用到它,它能对pascal程序进行怎样的优化。

期待更多朋友给我一个答复,:)

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个毫