能不能忙帮忙翻译一下语句

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
6 Z3 l- J0 Q' |5 _        no:=@.getNo;
; k; y, v/ C7 c# R# j9 b        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
! K, ?% t* n4 \# r7 k( d7 a) J3 c' \* c                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
7 H. B, Z( p! w3 C                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
$ Y% i/ `0 ^% M+ T- _3 V+ n* _# v! l3 K                end;
) P0 y# b. S( a7 j* V5 u5 ^                m:=m+PartsTable[2,i];
0 w; w& D8 X: n5 F3 {                print m;
        next;
; M8 O, y: P7 n: t        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
/ w1 P3 l2 z' p* N+ u9 a- ?
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
6 m! D, [/ O9 b# R7 p  v不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
4 W; l( X  ~2 }' p& Ris
( l" Z' P0 n# r2 S7 ?/ c1 ]) T        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
+ k" U4 h9 e2 C$ o        m:=0;
7 a" H+ V2 c% F+ T& P- }        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
& ]/ e) `6 V) b% r, J                        @._From:=PartsTable[5,i];            
9 }8 w8 C% I9 A. E                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
& V$ H* P+ J6 \/ T8 P, q                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

7 r% b# B  E8 X0 q& c! t2 ^                        end;
) m4 v, `. a) e) E3 L, }) E5 s                        i:=PartsTable.YDim+1;
% M0 M+ K; m6 t5 t: J9 x                end;
, p0 }* K9 |; M  V' e" P! d; E                m:=m+PartsTable[2,i];
; m, S# l: e( C& c) A0 f        next;
5 E% T3 G0 L- ?5 z       
        Buf:=str_to_obj(sprint("BF",@._From));
% a' D0 `; O4 d1 F& D" m        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
: [: B6 y9 U% H  P  c. ?$ i不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的