求助!语法错误!
- Delphi(Pascal) code
function TurnRight( Path:Integer): Boolean;begin if TempCount=Path then begin ClearAll(self); Image1.visible:=True; Result:=True; end else Result:=False;end;
其中 ClearAll 是一个 procedure,Image1 是一张图片,但是构建的时候提示有错误,不能编译,为何?
不可以这样子写吗?
[解决办法]
Image1.visible:=True;//应该这句出错
前面应该加上函数所在的窗体名
例如:
Form1.Image1.visible:=True;
[解决办法]
作用域不同,象1楼那样
或者把你这个过程加入到窗口类中
改成function Form1.TurnRight( Path:Integer): Boolean;
并将过程声明加入到窗口类中
[解决办法]
你这个是一般方法,但是方法里面确引用了对象指针SELF?
[解决办法]
并没有name这个词? 错误也许不在这里吧; 不过楼主的代码,也要改一下
ClearAll是类TForm1的方法,但TurnRight不是;所以访问ClearAll时,要加上类TForm1的实例对象(即Form1),
同理Image1也一样
Form1.ClearAll(nil); //TurnRight不是类的方法,没有self
Form1.Image1.visible:=True;
或者只改这里function TForm1.TurnRight( Path:Integer): Boolean;
相应的在private下面添加此函数
再有其它错误,根据错误提示修改吧