主题：[求助]以下代码如何编写

if cross(fx,r1) then begin

   pp:=r1;

   cykg:=1;

end

 

if cross(fx,s1) then begin

   pp:=s1;

   cykg:=1;

end

 

if cross(s1,fx) then begin

    pp:=s1;

    cykg:=-1;

end

 

if cross(r1,fx) then begin

    pp:=r1;

    cykg:=-1;

end

这样的语句是不会报错的，报错的是在其他地方导致了这个cross在if里面

比如

if cross then begin

.........

end

 

是可以的

但是

if  ....... then begin

   if cross then begin

   ....

   end

end

 

是不行的