Pascal图形模式的初始化及退出
1.初始化

Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，是有八九十卡

在这里了。 这也是非常令我头疼的问题。 用过程 initgraph(GraphDriver,GraphMode,PathToDriver)

其中 GraphDriver , GraphMode 为整形变量, PathToDriver为字符串变量, GraphDriver为图形驱动器,

GraphMode为图形模式 , PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。initgraph使

用方法见下例:

program t001 (input,output);

uses crt,graph;

var

gd:gm:integer; {定义GraphDriver,GraphMode变量}

begin

gd:=detect;

initgraph(gd,gm,''); {调用initgraph过程,PathToDriver缺省则表示在当前目录中寻找

《－－－－－－－这个很重要，一般也可以写成　initgraph(gd,gm,'c:\tp\bgi'); 当然

如果你是如此安装的话。}

bar(100,100,200,200); {画一个以(100,100),(200,200)为顶点的矩形，这是一个标准过程，

你在后面还会看到一个名为bar3d的东东，那个是画立体矩形的}

delay(1000); {将此图形保留一秒，10000就是10秒，依此类推}

end.

2.退出

Closegraph过程
功能:退出图形模式.

在图形模式下如果使用 write 等等文本输出可能会出问题－－－比如无法看到等等。好像还可能引

起显示上的问题，反正养成一个好习惯也没什么不好的。这里有一个技巧，当你发现无论如何调整都无

法显示图形时，你可以调用自带的例子，用来测试，看看是否是程序本身的问题。

注意，这里有一个不属于图形的，但是非常容易遇到的问题。前面我们说过，在图形编程使用 graph 单

元的时候，我们也常常会使用crt单元，这就有一个问题：crt 单元在主频高的机器上无法正常运行。会出

现 200 号错误！！！请下载补丁，在我们的网站上就有。还有一种情况，就是出了问题没有提示!表现是

运行程序什么反应也没有。如果你出现这种情况，首先检查程序，如果没有问题，非常有可能使这种情况，

也请下载补丁！据报告奔腾180以上的机器具都不同程度存在这种问题！