程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; B2 M/ Z8 E9 N0 ]9 m6 G. y        i,j,Rows,Lines:integer;
( Y" k" D' E7 w1 }, S  v3 t        MachineName,BufName:string;
+ N' ?! F% X" D2 e. l8 ^. J        Machine,Buf:object;
/ X* j" N8 c/ {+ X6 ~+ Pdo
, A0 H3 y, y, Z+ L        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 h( h$ p1 `! ~( G; z" r5 ?' u                inspect messageBox("Number Wrong...,",50,13)
/ ^* j0 f" v; c- x- k1 _6 N9 Q                when 16 then
+ V1 v1 U9 L' B/ r                        print "Yes";
6 Z1 C7 X% h/ ]2 T. }( c                when 32 then
7 R% H  }: X( D2 ?$ d' [. Y6 c                        print "No";
* W0 i& U' B7 p8 ?/ d) G) e8 P7 y3 G                else
' g' J+ Z: B  n5 O                        print "Cancel";
                end;
5 W( ^9 N( l$ ?        EventController.stop;
3 O9 m' s6 O) @0 ?end;
0 v1 y, A/ }2 k+ w) C5 v! u# e9 L6 GPartsTable.delete;
* r/ C, t  p' y) X; ufor i:=1 to Number_Of_Machine loop
; f. N" R* @4 E. X. ]! O, x9 P        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
, y: D% _8 G( u6 {$ U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" X6 C" g4 Z* ^! g8 S- i                        end;
, L- I1 Y) N! s                else
                        if j=i then
$ g9 d: l2 x2 e' _, J$ M                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
8 M/ Y8 r, S% E. K3 x! q' F) F: w  f2 e                                        messageBox("distence<=0...,",50,13);
: B7 X! t; j/ B; r* ]                                        EventController.stop;
7 ?9 b# V- D1 P* E9 m+ I* P, i                                end;
9 {$ d' Y7 O  \7 I2 r                        end;
6 F! m4 f6 [5 j1 C9 T- n6 F1 ?                end;
3 w6 v$ X  \5 E! J; [) @: N3 {        next;
- l( p/ F' D* g% `0 x% ^# ~next;
2 Z+ V7 `9 _# S' |% n
end;
) Q5 p9 F9 D+ n: m7 I
    Lines :=0;
, C  Y3 q# ~0 C% {        for i:1 to Number_Of_Machine loop
" z. R5 P& W8 X1 l; d. j        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
" {0 c1 J, a6 c+ B- |1 k- M                    if W_From_To_Chart[j,Rows]>0 then
$ P+ M6 n+ g, `4 U% C/ X( H                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
) j/ J( i% H- D& W        next;
6 r* t4 N. n/ h3 `! R# s: |        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;
/ y7 Z; d8 J8 g8 E        Machine.ProcTime :=5;
! q# N: K$ x4 p  O3 k        Machine.label :=sprint("machine_",Rows);
, W2 h9 \* x# N% x& m, }        Machine.ExitCtrl :=ref(Leave);
1 M+ c" G  `/ d9 L5 L       
0 n7 v) I; [; N# E        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]);
                Buf.Name :=BufName;
! u& e2 J( b9 Z, z" |7 s1 X! r4 g' }3 A        Buf.Capacity :=5000;
! ^& F9 w3 J( \- W4 I- E& I        Buf.ProcTime :=0;
8 A7 z. M  X7 l8 y7 y4 }        .MaterialFlow.Connector.connect(Buf,Machine);
next;
: {  M+ u; ]2 r$ ~end;
4 j: [: K3 B; X: g& M

五五

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

wudi

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