(新)pascal中crt单元用法——精.docVIP

pascal中crt单元用法 Crt单元 过程 Assigncrt(F)??????F:Text?将文件F放置于显示器 ClrEol???????????????????删除当前行上的字符 ClrScr???????????????????清屏并将光标移动至(1,1) CursorBig????????????????将屏幕输出状态改为改写 CursorOff????????????????关闭光标 CursorOn?????????????????打开光标并将光标移动至(1,1) Delay(T)??????T:Integer???等待T毫秒 GotoXY(X,Y)?X,Y:Integer?将光标移动至(X,Y) InsLine??????????????????在光标所在位置插入行 DelLine??????????????????删除光标所在当前行 LowVideo?????????????????选择低亮度显示字符(颜色代码减8) NormVideo????????????????选择正常亮度显示字符 HighVideo????????????????选择高亮度显示字符(颜色代码加8) NoSound??????????????????扬声器停止发声 Sound(HZ)????HZ:Integer???以Hz频率发声 Readkey??????????????????等待键盘输入 TextColor(Color)?????????Color:[White,Green...] ?????????????????????????Color:Integer ?????????????????????????将正文颜色设为Color TextBackground(Color)????Color:[White,Green...] ?????????????????????????Color:Integer ?????????????????????????将背景色设置为Color TextMode(X)???X:Integer???选择X为显示模式(有的X值无法正常显示) Windows(X1,Y1,X2,Y2)?????X1,Y1,X2,Y2:Integer ?????????????????????????在屏幕上建一个列从X1到X2,行从Y1到Y2的窗口 函数KeyPressed?Boolean?????判断键盘是否输入Readkey?????Char????????键盘输入的字符WhereX??????Integer?????返回光标的列数WhereY??????Integer?????返回光标的行数注:Delline与Clreol的区别:Delline后,下一行会往上提,Clreol不会。在Pascal中,屏幕坐标十分奇怪：(X,Y)中，X指的是列数，Y指的是行数，与正常习惯正好相反。WhereX/WhereY也是这样。Pascal中的颜色代码：0?黑1?深蓝2?绿3?天蓝4?红5?粉6?橙7?白8?灰9?蓝紫10亮绿11亮蓝12亮红13亮粉14亮黄15亮白16闪黑17闪蓝18闪绿19闪天蓝20闪红21闪粉22闪橙23闪白24闪灰25闪蓝紫26闪亮绿27闪亮蓝28闪亮红29闪亮粉30闪亮黄31闪亮白KeyPressed与Readkey连用效果好：Repeat???B:=Keypressed;???If?B?Then????H:=Readkey;???If?H=’0′?Then?Halt;Until?H=’?’;Mouse单元过程InitMouse??????????????????启用鼠标DoneMouse??????????????????停用鼠标HideMouse??????????????????隐藏鼠标指针ShowMouse??????????????????显示鼠标指针SetMouseXY(X,Y)X,Y:Integer将鼠标指针移动至(X,Y)GetMouseEvent(MouseEvent:TMouseEvent)???????????????????????????得到鼠标数据并将其存入MouseEvent中PutMouseEvent(MouseEvent:TMouseEvent)???????????????????????????用MouseEvent代替当前鼠标数据函数DetectMouse????????Integer?返回值为0时代表没有鼠标,否则返回鼠标按键数GetMouseButtons????Integer?0代表没