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

热翔啊

is
        i,no,m:integer;
        Buf:object;
6 |; @7 `* i! D9 M/ @do
        m:=0;
0 b; s" i  u. Z4 |  J& `        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
: Y  l8 J6 u4 S9 A' ~% T                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
# h1 k0 S8 w& ?$ Q2 W                        @._From:=PartsTable[5,i];
+ \7 q+ A6 d7 j; C* p6 _4 Y                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% o  |, V; t% u                                PartsNo:=PartsNo+PartsTable[2,i];
7 t9 U2 M* i# D5 r: S2 k: x                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
* ^3 C; t* @& |" u                end;
# g# s5 @8 |2 H! e8 h/ u                m:=m+PartsTable[2,i];
4 U0 @4 O7 p6 k4 d% r2 O                print m;
6 S; J4 L" ^0 F( ?3 f  b$ \7 c        next;
- J" R6 c% \3 A) P; ~        --先将零件送到From位置
% w7 U2 u: g+ @5 _7 v/ y6 d, r( |& a4 |- h        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
: O: f# L/ C# G5 Q, ]        @.move(Buf);
( W$ R4 n9 l8 e( @4 xend;

. h. Y6 L. ^3 p( w, A' v$ o! _( n这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
' V; w3 j' F  P% L# G1 v不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
3 S1 m) H$ Z0 h& a# His
* S7 s7 U8 Z( K$ D8 c1 e4 C        i,no,m:integer;       --定义整型
" s. ^# J, m+ Q6 l0 i        Buf:object;            --定义object
% f. `/ `5 [7 L9 T; r, Jdo
$ r& Q6 c9 T* E% d8 \9 ~/ b        m:=0;
: n! U2 p+ s: c( m( T* i! q        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
* {8 b+ B/ m5 B* X* k        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
/ W& ]- a8 @+ N                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
1 N) f; y9 m1 l6 u* J6 j* ~$ V                        @._From:=PartsTable[5,i];            
! L2 h+ s  M* k- J0 J& a                        @._To:=PartsTable[6,i];
) ?: O4 z  o1 I, {8 v% M. l                        if no=PartsNo+PartsTable[2,i] then
0 I1 O; [" \( s7 R6 Q7 k                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
6 Q0 \8 A2 \2 I
0 W: u. Y, M$ |% M' B  f                        end;
2 t3 F3 k; Z9 L1 q( Q                        i:=PartsTable.YDim+1;
                end;
% q5 i  B, O; s- C; q6 H                m:=m+PartsTable[2,i];
, v& K4 f+ O3 A8 Q5 o( Z2 b+ E        next;
       
3 f6 m4 c3 k1 h0 O# E% \( L  U0 _        Buf:=str_to_obj(sprint("BF",@._From));
/ B- }( b( @7 E! g: b7 l        @.move(Buf);
end;

热翔啊

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

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