原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
函数和过程链接：
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.
仔细对比后你就会知道什么意思了。
例子：
Program Example9;
uses Crt;
{ Program to demonstrate the ClrEol function. }
var I,J : integer;
begin
For I:=1 to 15 do
For J:=1 to 80 do
begin
gotoxy(j,i);
Write(j mod 10);
end;
Window(5,5,75,12);
Write(This line will be cleared from,
here till the righ
文档评论（0）