程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: \6 L5 Z3 F0 _6 T+ Q6 Kis
' R6 [6 U$ B. ^3 n        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
" e& S( a7 a3 t2 ydo
0 H) i( M! v1 c8 g        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 d3 q0 @5 g, M( n/ }2 J5 g" M' q0 K                inspect messageBox("Number Wrong...,",50,13)
/ \) B2 [  E) m9 Z                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
& B* [2 x; B0 J( w0 J3 X) w" d5 O                else
                        print "Cancel";
                end;
        EventController.stop;
end;
8 ~; P# ?+ D6 m, Q7 GPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
7 P6 X5 m" d. S                                D_From_To_Chart[j,i]:=0;
" O( `: i# ?+ `2 |9 U% n                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
5 Z. j% t9 G0 c                                end;
                        end;
/ F& O) v2 p! D- W                end;
        next;
* g7 M* a+ {1 @2 Cnext;

end;
- \# N2 ?3 F' P4 k5 g/ Q$ p  y
/ M  a0 k4 f% [: E1 t# |- T; ]    Lines :=0;
1 q* j5 l) j; l) u) T, {& _) ]        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
, N6 }& k& m8 X* s            for j:1 to Number_Of_Machine loop
$ @- _2 u9 D, s' o9 u                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 `% [. ~1 j, w' g6 t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
( U8 L" T2 w9 {                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
) q' t) }) G$ ~, b        MachineName :=sprint("M",Rows);
        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;
# N8 N  ]3 K& K! w* n& L        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 f4 Q! y- F" C; c# p       
, V# ~$ G6 U1 U/ l        BufName :=sprint("BF",Rows);
3 t" g5 h2 n# ~5 l. S8 w" C        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]);
                Buf.Name :=BufName;
. K* U( G$ i$ {, ~        Buf.Capacity :=5000;
7 X  ~, b9 \* m/ B/ h        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
  o) r/ i5 t# o: u! @; k) ?6 Vend;

五五

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

wudi

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