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

热翔啊

is
; J% v( i  @5 `& v        i,no,m:integer;
        Buf:object;
do
2 q$ C6 Y5 p. Z        m:=0;
/ G6 w! w) m" k) u9 w        no:=@.getNo;
4 `% S( @) a5 k! O& k        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
7 h% A: U. l$ j5 `                        @._From:=PartsTable[5,i];
8 u6 r! {/ V: P0 Q% A                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
  ?8 O( F% @2 A2 ]2 E                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
  a* B' ]0 k# m; l                end;
% t; t1 z  I4 `" Z* u                m:=m+PartsTable[2,i];
6 P/ G5 k" Z9 g) H; }9 A+ q& x! g                print m;
        next;
        --先将零件送到From位置
! H$ n' j0 z* O3 ]: m        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
- l/ c" U; x4 |6 _4 B+ d- }# ?
) e/ E& @2 s& E这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) }, b6 V) q$ v7 }8 V/ W不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
2 c& _( ^8 W# t1 gdo
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
, U; V) i0 y5 ?' B! Q) ^                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
$ M# D( y4 Z8 S6 p' V2 L                        if no=PartsNo+PartsTable[2,i] then
: V$ O0 b) ]7 a7 q" X; ^5 t2 ~  J                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

( I. U! v/ K: X! H) H                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
  T. i, L/ r7 @: I! Hend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
5 E( K+ _; f8 P) M( D+ i; q这个例子昨天正好看了，话说那本书的例子都很不错~
: Q$ O, N1 N% }( I: a2 L9 }$ J不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

6 g" e7 s& J! v+ O+ O% y非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的