Pascal Crt单元

Crt单元

过程

1. Assigncrt(F) F:Text 将文件F放置于显示器
2. ClrEol 删除当前行上的字符
3. ClrScr 清屏并将光标移动至(1,1)
4. CursorBig 将屏幕输出状态改为改写
5. CursorOff 关闭光标
6. CursorOn 打开光标并将光标移动至(1,1)
7. Delay(T) T:Integer 等待T毫秒
8. GotoXY(X,Y) X,Y:Integer 将光标移动至(X,Y)
9. InsLine 在光标所在位置插入行
10. DelLine 删除光标所在当前行
11. LowVideo 选择低亮度显示字符(颜色代码减8)
12. NormVideo 选择正常亮度显示字符
13. HighVideo 选择高亮度显示字符(颜色代码加8)
14. NoSound 扬声器停止发声
15. Sound(HZ) HZ:Integer 以Hz频率发声
16. Readkey 等待键盘输入
17. TextColor(Color) {Color:[0…31]}将正文颜色设为Color
18. TextBackground(Color){Color:[0…31]}将背景色设置为Color
19. TextMode(X) X:Integer 选择X为显示模式(有的X值无法正常显示)
20. Windows(X1,Y1,X2,Y2)X1,Y1,X2,Y2:Integer在屏幕上建一个列从X1到X2,行从Y1到Y2的窗口

函数

1. KeyPressed Boolean 判断键盘是否输入
2. Readkey Char 键盘输入的字符
3. WhereX Integer 返回光标的列数
4. WhereY Integer 返回光标的行数

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=' ';