主题：版主 请帮助改变量循环

 if cross(aa,lj) then do  begin
 nt:=i-1;
 //tmp1:=aa;
 
 end;
 
 if cross(hj,aa)  then do  begin
//tmp:=ref(aa,i-1);;
ntt:=i-1;
end
 end;
 cfb:=ref(aa,barpos-nt),linethick0;
  cfb1:=ref(aa,barpos-ntt),linethick0;
  gg:cfb-cfb1,linethick0;;
   barpos1:=min(nt,ntt),linethick0;;;
  //if barpos1>10 then goto tyu;
//2次循环

for ii=barpos1 downto 4 do begin

 if cross(aa,lj) then do  begin
 nta:=ii-1;
 //tmp1:=aa;
 
 end;
 
 if cross(hj,aa)  then do  begin
//tmp:=ref(aa,i-1);;
ntta:=ii-1;
end
 end;
 cfba:=ref(aa,barpos-nta+1),linethick0;
  cfba1:=ref(aa,barpos-ntta-1),linethick0;
  gga:cfba-cfba1,linethick0;;
    //ggav:ntta,linethick0;;

//、、n次循环

。

。。

。。

。。

。。。。。

//求和