函数和过程链接: AssignCrt CursorBig ClrScr CursorOff CursorOn Delay DelLine GotoXY HighVideo InsLine KeyPressed LowVideo NormVideo NoSound ReadKey Sound TextBackground TextColor TextMode WhereX WhereY Window 类型,变量,常量: 颜色定义: Black = 0; Blue = 1; Green = 2; Cyan = 3; Red = 4; Magenta = 5; Brown = 6; LightGray = 7; DarkGray = 8; LightBlue = 9; LightGreen = 10; LightCyan = 11; LightRed = 12; LightMagenta = 13; Yellow = 14; White = 15; Blink = 128; 杂项常数: TextAttr: Byte = $07; TextChar: Char = ' '; CheckBreak: Boolean = True; CheckEOF: Boolean = False; CheckSnow: Boolean = False; DirectVideo: Boolean = False; LastMode: Word = 3; WindMin: Word = $0; WindMax: Word = $184f; ScreenWidth = 80; ScreenHeight = 25; 一些变量与Turbo Pascal兼容,但在Free Pascal中,他们没有用处。 var checkbreak : boolean; checkeof : boolean; checksnow : boolean; 以下常量定义在DOS系统屏幕模式: Const bw40 = 0; co40 = 1; bw80 = 2; co80 = 3; mono = 7; TextAttr变量控制被写入屏幕字符的属性。 var TextAttr : byte; DirectVideo变量控制控制在屏幕上书写。如果为True,游标通过直接设置端口访问, 如果为False,然后使用BIOS,这只是DOS下的定义。 Lastmode变量告诉你哪种模式是最后被屏幕选择的,它的定义只是基于DOS。 var lastmode : Word; 过程和函数: 1、Procedure AssignCrt (Var F: Text); AssignCrt指定一个文件 F到屏幕。写入文件 F一切转到屏幕代替。如果屏幕包含 一个窗口,全部写在窗口代替。注:功能接近于Writeln。 例子: Program Example1; uses Crt; var F : Text; begin AssignCrt(F); Rewrite(F); WriteLn(F,'This is written to the Assigned File'); Close(F); end. 2、Procedure CursorBig; 使光标(不是鼠标图形)成为大矩形,在LINUX上不可用。 如果不明白的话,运行下面这个程序: Program df; Begin Readln; End. 仔细观察效果后,在运行下面这个程序: Program df; Uses crt; Begin CursorBig; Readln; End. 仔细对比后你就会知...