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

热翔啊

is
8 ]+ ~: l6 E0 u# j1 Z        i,no,m:integer;
        Buf:object;
: Z% _) A% i; j. L1 N; M3 I. ndo
9 }5 x/ j" J' h0 [2 i7 R        m:=0;
6 `3 X: r4 Y: c' C        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
7 T/ M+ R1 d4 U5 u! E8 {                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
3 E8 A* `/ ^5 i% y; N0 i. V                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
1 k  J$ c3 g, G. w        @.move(Buf);
5 C6 H" p# A, m8 P. hend;

8 J9 R0 D& H* M8 `0 X' s: [这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
& w4 f1 C1 L+ |; N% r不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
( |2 M) @5 `1 E- y% M5 Lis
) X  _1 {  ~# A        i,no,m:integer;       --定义整型
  Y% L6 Y  B, e& b- H) i5 \        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
: W% j, H5 w. V: h& g( A0 `                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% ^  h2 |) s7 o                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

- S5 O8 _1 G2 x1 r8 ~- b1 G% l                        end;
2 t0 g: M, L8 X                        i:=PartsTable.YDim+1;
- ]+ L" O6 s( y                end;
                m:=m+PartsTable[2,i];
4 G2 h4 t" o) c4 D        next;
       
% q( d6 [" G1 a3 n        Buf:=str_to_obj(sprint("BF",@._From));
% E0 [: T4 i4 ~: x; Z/ G2 L        @.move(Buf);
end;

热翔啊

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

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