Free Pascal CRT 单元常量、变量、函数、过程详解.doc

《Free Pascal CRT 单元常量、变量、函数、过程详解.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、类型，变量，常量:颜色定义: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

2、;CheckSnow:Boolean=False;DirectVideo:Boolean=False;LastMode:Word=3;WindMin:Word=$0;WindMax:Word=$184f;ScreenWidth=80;ScreenHeight=25;一些变量与TurboPascal兼容，但在FreePascal中，他们没有用处。varcheckbreak:boolean;checkeof:boolean;checksnow:boolean;以下常量定义在DOS系统屏幕模式：Constbw40=0;co40=1;bw80=2;

3、co80=3;mono=7;TextAttr变量控制被写入屏幕字符的属性。varTextAttr:byte;DirectVideo变量控制控制在屏幕上书写。如果为True，游标通过直接设置端口访问，如果为False,然后使用BIOS,这只是DOS下的定义。Lastmode变量告诉你哪种模式是最后被屏幕选择的，它的定义只是基于DOS。varlastmode:Word;过程和函数：1、ProcedureAssignCrt(VarF:Text);AssignCrt指定一个文件F到屏幕。写入文件F一切转到屏幕代替。如果屏幕包含一个窗口，全部写在窗口

4、代替。注：功能接近于Writeln。例子：ProgramExample1;usesCrt;varF:Text;beginAssignCrt(F);Rewrite(F);WriteLn(F,'ThisiswrittentotheAssignedFile');Close(F);end.2、ProcedureCursorBig;使光标（不是鼠标图形）成为大矩形，在LINUX上不可用。如果不明白的话，运行下面这个程序：Programdf;BeginReadln;End.仔细观察效果后，在运行下面这个程序：Programdf;Usescrt;Begi

5、nCursorBig;Readln;End.仔细对比后你就会知道什么意思了。例子：ProgramExample9;usesCrt;{ProgramtodemonstratetheClrEolfunction.}varI,J:integer;beginForI:=1to15doForJ:=1to80dobegingotoxy(j,i);Write(jmod10);end;Window(5,5,75,12);Write('Thislinewillbeclearedfrom','heretilltherightofthewindow');Goto

6、XY(27,WhereY);ReadKey;ClrEol;WriteLn;end.3、ProcedureClrScr;ClrScr清除当前窗口（使用当前的颜色），并设置在当前窗口左上角的光标。（就是清屏）例子：ProgramExample8;usesCrt;{ProgramtodemonstratetheClrScrfunction.}beginWriteln('Pressanykeytoclearthescreen');ReadKey;ClrScr;Writeln('Havefunwiththeclearedscreen');end.4、

7、ProcedureCursorOff;隐藏光标。在LINUX上无效。5、ProcedureCursorOn;显示光标。在LINUX上无效。6、ProcedureDelay(DTime:Word);延迟等待指定的毫秒数。指定的秒数是个近似值（即可能有偏差），如果系统负载高，可能被关闭。例子：ProgramExample15;usesCrt;{ProgramtodemonstratetheDelayfunction.}vari:longint;beginWriteLn('CountingDown');fori:=10downto1dobegin

8、WriteLn(i);Delay(1000);{Waitonesecond}end;WriteLn('BOOM!!!');end.7、ProcedureDelLine;DelLi