程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
. I. `) R8 N5 A' l0 U! F2 p; d" s- @        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
) v9 m3 J: R8 w9 N0 K        Machine,Buf:object;
6 N( [) [& [+ G( Y! Y/ ~2 edo
8 `4 P1 N" P" m* I1 Z6 N7 R        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
) |0 z, b0 Q; p, X+ G. W                when 16 then
5 u: w; ^) w" V! {: t) @                        print "Yes";
/ B/ S/ c4 x/ a5 B/ a- ~1 E                when 32 then
: i) F% k1 E' d                        print "No";
" `) l* k5 _/ Q5 y2 n                else
                        print "Cancel";
' [9 E. q, V- d& S6 c  W5 b7 D                end;
+ o- |- U+ D& q/ g; _7 p* H/ |' t% M        EventController.stop;
end;
% r) K( t" X9 o; H# jPartsTable.delete;
1 z. Y- n: O. e- b. V( U/ Ffor i:=1 to Number_Of_Machine loop
2 c* V& t# K: V6 d        for j:=1 to Number_Of_Machine loop
                if j<i then
3 J! o* ]$ r% J7 R5 B5 d) T                        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
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
* W* D, u2 S3 E" Y                                        messageBox("distence<=0...,",50,13);
  i$ ]/ Y4 D, E  I9 ~0 e: a                                        EventController.stop;
                                end;
% o" b: j, x+ V2 n3 r' F                        end;
                end;
( Y- B- o0 E1 y$ l" l        next;
1 v$ }  i4 }# }( t: onext;

end;

: `( m1 d' G! n9 p9 T    Lines :=0;
        for i:1 to Number_Of_Machine loop
3 R  [' H5 m/ I( M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% C; O% z0 P% Y6 l8 l7 O1 d        MachineSequence[2,i]:=Rows;
  \1 u7 j' j3 b; z0 h7 h            for j:1 to Number_Of_Machine loop
& T- M' j2 n- M' t                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) y& t8 w) O  ?% Z3 A                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 X7 F) z$ l2 Z  G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 r5 n: J$ r* D3 E7 O4 A. R                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
6 l7 r' Q0 i' p        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;
        Machine.ProcTime :=5;
( t7 r) I, n. U8 W& c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: A  f) |/ H, r) S       
        BufName :=sprint("BF",Rows);
7 |* y# B, ^: }  I        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
+ [; B. k5 U4 D  @% x8 ]        .MaterialFlow.Connector.connect(Buf,Machine);
% s" }& [% y; ]3 N7 l1 }next;
' [5 z/ ], g9 Vend;
! E1 g6 r) ]1 O

五五

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

wudi

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