UC知道pascal graph单元 怎么使用?
来源：百度知道 编辑：UC知道 时间：2024/06/23 00:28:53
pascal graph单元 怎么使用?
为什么下面会出错 216号
uses graph
begin
circle(10,10,20);
end.
uses graph
begin
circle(20,20,10);
end.
为什么下面会出错 216号
uses graph
begin
circle(10,10,20);
end.
uses graph
begin
circle(20,20,10);
end.
应该先初始化：
定义：var
gd,gm : integer;
PathToDriver : string;
初始化：
gd:=detect; { highest possible resolution }
gm:=0; { not needed, auto detection }
PathToDriver:='C:\PP\BGI'; { path to BGI fonts,
drivers aren't needed }
InitGraph(gd,gm,PathToDriver);
退出:
closegraph
应该先初始化：
定义：var
gd,gm : integer;
PathToDriver : string;
初始化：
gd:=detect; { highest possible resolution }
gm:=0; { not needed, auto detection }
PathToDriver:='C:\PP\BGI'; { path to BGI fonts,
drivers aren't needed }
InitGraph(gd,gm,PathToDriver);
退出:
closegraph
graph单元常用函数过程大全
整理人:王禹
经过几天的时间,把TP的帮助文件整理了一下,把graph单元的过程和函数总结了出来,转载时请保持信息的完整性
procedure Arc (坐标X,坐标Y;Integer;开始角度,结束角度,半径; Wo