FreePascalCrt单元.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=’?’;pascal crt单元详解 crt单元定义的过程或函数首部形式及说明 过程或函数首部形式 说明 procedure assigncrt(var f:text); 将文本文件f与显示器CRT建立联系，任何写入f的信息显示在窗口中，儿不写入f function keypressed:boolean; 检测是否有键按下,有则函数值为true ；Shift, Alt, Ctrl不被报告function readkey:char; 等待从键盘输入一个字符，如果一个扩展键或功能键被按下，则返回ASCLL的0，你可以再调用一次readkey，读取该键键码值。 Program Example3;uses Crt; { Program to demonstrate the ReadKey function. } varch : char;beginwriteln(Press Left/Right, Esc=Quit);repeat??? ch:=ReadKey;