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

热翔啊

is
( _# A" i- G3 H3 F. R7 M        i,no,m:integer;
0 U# t) Z& V& N; U4 @0 k        Buf:object;
  O6 A0 t  _8 f  U5 Ydo
        m:=0;
! ^6 Z3 Y9 l" E; u        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
& o( G- p6 N" ]5 Z  j                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
8 ~) r# I# d( c- G1 g3 L                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
8 g2 y1 E  v7 p9 `                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
3 _! C9 R% I( I                        end;
0 J5 C/ b4 o. h7 e                        i:=PartsTable.Ydim+1;--跳出循环
                end;
1 l( g$ S, @7 p  S4 k+ h: T                m:=m+PartsTable[2,i];
( D' z9 v1 W; }; s4 o" \                print m;
5 H9 E6 i7 U3 J4 p/ Z3 j# k        next;
" t6 K  v0 ^* V  y, g        --先将零件送到From位置
6 w! B  u" ]/ W/ [/ |5 ^        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
4 p% X! y1 i7 N; Y不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
/ d$ z) E3 d& p# I3 Mis
4 Q7 _. R) F. o( P$ O  P; ~        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
/ n1 H' @, l2 @) u" edo
% v+ k- V3 O/ Z' j* M! g4 l        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
. w* y. D3 h2 m* H* M+ D9 p' j                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
# p* W" K/ h- s                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
+ O2 V/ d: }/ d                        if no=PartsNo+PartsTable[2,i] then
; f0 j7 ]( U/ I. ]/ ?                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
3 L: p" e* u! \) U5 _0 Y
                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
  H2 e* g8 ]9 X; R% g' m+ x9 b& d        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
) e- ?; ?, z& y0 p) a: x: W        @.move(Buf);
9 {2 I( t7 q) q6 K/ Y. ~( _end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
! o/ I) h$ U3 M' R. G( B) s这个例子昨天正好看了，话说那本书的例子都很不错~
, y9 V2 x8 u% \不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

" s7 b) o3 k  t* X+ j" F非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的