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:[0…31]}将正文颜色设为Color

TextBackground(Color){Color:[0…31]}将背景色设置为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 返回光标的行数

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