程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* @+ ~9 H- s3 [6 his
        i,j,Rows,Lines:integer;
$ K( ~  d9 v) @        MachineName,BufName:string;
' d. ~7 b0 Q# Z, Q1 N  n: c        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
4 d5 j# I. C# x* U                        print "Yes";
: w$ ~/ O3 z9 U. D& t" O! o4 p                when 32 then
' O. }4 ^: q8 W( {% ~5 e                        print "No";
                else
3 T/ R$ L& L% m) M; X, j* L                        print "Cancel";
                end;
7 q. ~, M$ N- L5 n/ O- Y0 t        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
$ M! x9 b$ k4 F, ?, Y4 ~5 F        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
' I( Y, v1 i% e                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
' U' v5 P/ D. U9 f$ l7 q8 O- B                        end;
/ t2 a3 K" `* H/ W                else
: p. L  Q: S+ z$ Y7 ]                        if j=i then
8 d+ ?3 `; d& S; m( ?* d6 [: I- N                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 X1 C4 B- M4 }$ r/ }6 ]  y                                        EventController.stop;
                                end;
# b& g. z; l  ^! j3 E; b                        end;
                end;
; W( s6 }% y, C% t# Z. s7 w        next;
next;
1 y6 |/ U+ z6 x  J
  I6 F/ `  {. D$ ]% Wend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
% C  b/ l: }( t  v        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
: k6 R* c# L' [9 b6 F' D, H7 U                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: C- T  U; A% Q% y' r                        PartsTable[3,Lines]:=sprint("Parts");
2 B1 v  k2 _& U$ U. G$ P  k# k                        PartsTable[5,Lines]:=Rows;
' v" c( a2 F( v  i: o: i                        PartsTable[6,Lines]:=j;
                end;
$ A6 F) e' p: a5 A* J: m. O* d        next;
. _4 O6 H. [/ B. F# C; Z        MachineName :=sprint("M",Rows);
7 Z* ~. V8 Y# M" |* V$ r& R% k        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
% N$ t& a! t8 F: [0 o. B        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
& V7 w  Q3 p9 t& k                 Buf.Name :=BufName;
& l: m7 D8 J7 l7 H4 p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
9 n3 F. x# e1 g1 M* V- g- zend;
8 C# S4 s6 R7 M# q

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手