回 帖 发 新 帖 刷新版面

主题:两个图形问题

1:
各位高人,偶输入此程序:

program t001 (input,output);

uses crt,graph;

var

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

begin

gd:=detect;

initgraph(gd,gm,'');

bar(100,100,200,200);

delay(1000); end.

运行后显示:BGI error:graphics not initialized (use initgraph)

没有图,这是什么原因

2:
为此,偶下载了一个GRAPH单元,TPU类型,但不知怎么用,求教......

回复列表 (共7个回复)

沙发

1:
原因是程序找不到文件:EGAVGA.BGI

解决方法一:在TP路径中的BGI文件夹下找到这个文件,把它拷贝到TP路径中的BIN文件夹。

解决方法二:在你的程序中,把语句

initgraph(gd,gm,'');  

改为

initgraph(gd,gm,'..\BGI');


2:
我估计你已经具备了 GRAPH 单元,不用下载了。理由是你这个程序没有提示缺少 GRAPH 单元。


3:
另外,你以后用TP作图时,最好在程序的结尾添加一行语句:

CloseGraph;

关闭作图模式。

板凳

恩 很支持1楼

3 楼

一楼,
我找不到BGI.我按解决方法二做了,但还是显示BGI error:graphics not initialized (use initgraph),真怪了.....[em10]

4 楼

EGAVGA.BGI 这个文件是Turbo Pascal自带的,如果找不到这个文件,说明你的Turbo Pascal不是完整版。建议去重新下载一个完整版的Turbo Pascal 7.0.

下载地址一:[url]http://www.programfan.com/showdown.asp?id=213[/url]  (来自本站)

下载地址二:[url]http://www2.skycn.com/soft/991.html[/url]  (来自天空软件站)

另外,你的旧版TP已打了CRT补丁,建议你安装完整版的TP之前先备份TURBO.TPL文件。

5 楼

啊.原来啊BEN是高手呀~~~~~
失敬失敬

6 楼

首先很感谢大家对我的支持!

我想请问楼主,你的问题解决了没有?

7 楼

十分感谢,问题解决了.....

我来回复

您尚未登录,请登录后再回复。点此登录或注册