pascal中crt单元用法1.pdf

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 的窗口 函数 KeyPressedBoolean 判断键盘是否输入 Readkey Char 键盘输入的字符 WhereX Integer 返回光标的列数 WhereY Integer 返回光标的行数 注: Delline与Clreol 的区别:Delline后,下一行会往上提,Clreol不会。 在Pascal 中,屏幕坐标十分奇怪：(X,Y)中，X指的是列数，Y指的是行数，与正常习惯正好 相反。WhereX/WhereY也是这样。 Pascal 中的颜色代码： 0黑 深蓝 2绿 3天蓝 4红 5粉 6橙 7 白 8灰 9蓝紫 10亮绿 亮蓝 12亮红 13亮粉 14亮黄 15亮白 16闪黑 17闪蓝 18闪绿 19闪天蓝 20 闪红 2 闪粉 22 闪橙 23 闪白 24 闪灰 25 闪蓝紫 26 闪亮绿 27 闪亮蓝 28 闪亮红 29 闪亮粉 30闪亮黄 3 闪亮白 KeyPressed与Readkey连用效果好： Repeat B:=Keypressed; IfBThen H:=Readkey; IfH=’0′ThenHalt; UntilH=’’; 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 Integer0代表没有按键, 代表左键,2代表右键,4代表中间键(非滚轮) GetMouseX Integer返回鼠标所在位置列数 GetMouseY Integer返回鼠标所在位置行数 PollMouseEvent(MouseEvent:TMouseEvent)Boolean 返回鼠标信息是否被更新(True为未更新) GetMouseDriver