主题:两个图形问题
绿步甲
[专家分:1610] 发布于 2005-07-28 19:13:00
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个回复)
沙发
阿Ben [专家分:2200] 发布于 2005-07-28 21:10:00
1:
原因是程序找不到文件:EGAVGA.BGI
解决方法一:在TP路径中的BGI文件夹下找到这个文件,把它拷贝到TP路径中的BIN文件夹。
解决方法二:在你的程序中,把语句
initgraph(gd,gm,'');
改为
initgraph(gd,gm,'..\BGI');
2:
我估计你已经具备了 GRAPH 单元,不用下载了。理由是你这个程序没有提示缺少 GRAPH 单元。
3:
另外,你以后用TP作图时,最好在程序的结尾添加一行语句:
CloseGraph;
关闭作图模式。
3 楼
绿步甲 [专家分:1610] 发布于 2005-07-29 19:05:00
一楼,
我找不到BGI.我按解决方法二做了,但还是显示BGI error:graphics not initialized (use initgraph),真怪了.....[em10]
4 楼
阿Ben [专家分:2200] 发布于 2005-07-29 20:31:00
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 楼
口口and枕头 [专家分:1550] 发布于 2005-07-30 00:40:00
啊.原来啊BEN是高手呀~~~~~
失敬失敬
6 楼
阿Ben [专家分:2200] 发布于 2005-08-04 21:11:00
首先很感谢大家对我的支持!
我想请问楼主,你的问题解决了没有?
7 楼
绿步甲 [专家分:1610] 发布于 2005-08-06 11:38:00
十分感谢,问题解决了.....
我来回复