程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
. F6 \" @/ ]: a. l5 d* Lis
! o' J- Q: c5 P: U% @$ g        i,j,Rows,Lines:integer;
" J9 n9 @: p" g7 Y8 s- G        MachineName,BufName:string;
, B  A7 C: p7 g7 X        Machine,Buf:object;
do
2 H7 E2 g/ A  z7 _        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
' n; O+ v+ J6 C4 x$ j4 Y                when 32 then
0 r  [+ w6 c. z                        print "No";
                else
                        print "Cancel";
6 R# B/ q1 e5 h  y" Q- w# U* U                end;
9 r) A5 f; }4 q* b        EventController.stop;
5 p: j, U% ?! S) ^0 u& e+ P9 `end;
% F  [2 c+ y' r; Z3 V- [6 X' wPartsTable.delete;
for i:=1 to Number_Of_Machine loop
' U( I, y2 p9 J- t        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
- Y( C* i% g2 `4 v1 `                                D_From_To_Chart[j,i]:=0;
                        else
* \7 g% A4 J2 n/ ~0 P/ ]                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
! n- o' l+ [: d# c                end;
        next;
3 \$ W- F9 O6 m$ G# H2 Cnext;
  l1 q1 C/ B3 V1 E* L4 \
end;
$ K' R7 w7 Z9 V# A& S
( ~3 ?# {, }# U6 {1 _0 Q, a+ M    Lines :=0;
+ u  w9 r4 e) u0 B* w! M7 x        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' y" X8 |# R- e3 D            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% p5 j1 D; f# e- L* ]                        PartsTable[3,Lines]:=sprint("Parts");
, z: g% r% x6 N" B: m                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" q- y% ~4 A% t5 g& M9 N                end;
* j; P4 p9 Z8 k8 Y9 f' x( f! N        next;
# l3 R+ a9 W1 m8 a        MachineName :=sprint("M",Rows);
# W, r# _3 q7 ?& [, D0 [) e        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]);
' a; d  G$ e& X; G6 |* s) a- W        Machine.Name :=MachineName;
& d: w8 S0 v; A7 u& J        Machine.ProcTime :=5;
$ N/ z) L, }, P& U- l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
+ }+ z5 f, ~. B, J        BufName :=sprint("BF",Rows);
        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]);
8 G% |. {# r# M5 j( \2 z0 E" U. t                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
" m, p/ V' l! p/ i$ ]" A        Buf.ProcTime :=0;
8 i; ?! Z1 D! Z+ [" Q6 G        .MaterialFlow.Connector.connect(Buf,Machine);
' w, O4 e6 b6 b+ A  Ynext;
end;

五五

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

wudi

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