回 帖 发 新 帖 刷新版面

主题:一个procedure的简单问题难住了我,基本排除少了标点啥的错误!

procedure CalculateCircle(var X1,Y1,X2,Y2,OX,OY,R,Angle : Real);
定义了这样一个过程,因为要反复调用,就是在座标里已知两个圆弧上的点,求出圆心,圆心角等值。
但是提求:too many acutal parameters
并且在type里提求:
Unsatisfied forward or external declaration:'Tform1.calculatecircle'

百度搜一搜,看不出啥,太多的实参,可是书上例子里都有数组作实参的啊,哪会八个就多了啊?
不满足的向前或外部声明:这个我更不懂了
谢谢大牛的解答

回复列表 (共3个回复)

沙发

看了网上一个解答
我在声明里过程改成
Tform1.CalculateCircle(var X1,Y1,X2,Y2,OX,OY,R,Angle : Real);
结果run一下光标跑到Tform1.CalculateCircle后提示: Expected '=' but '( ' found .
过程后来个啥等号啊?晕了我

板凳

在type里去掉了
正在运行
晕,难道不用声明么?

3 楼

似乎是那一行的位置有问题,没看到源代码不好说

我来回复

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