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

热翔啊

is
        i,no,m:integer;
! Q9 Y4 b' b  V  U/ r9 s2 |        Buf:object;
do
        m:=0;
3 T7 I6 X% a+ g1 ~! p* b        no:=@.getNo;
* T  M9 x" n% a8 |" T3 l        for i:=1 to PartsTable.Ydim loop
* K$ h$ t0 B  U7 `                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
4 [' W3 c+ t! {& x. b                        @._From:=PartsTable[5,i];
/ c- G3 ]/ ^1 H( v/ u) I                        @._To:=PartsTable[6,i];
  Y) Q9 C- H' @* t, N) I                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
0 X- S0 Z* s  b                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
2 L$ S% h- X, a                m:=m+PartsTable[2,i];
                print m;
, r& W6 S: L8 u1 ~7 f        next;
  e' l7 `. ~) {        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
2 g& H  A' l$ X        @.move(Buf);
end;
/ c. G: U8 r9 _, b. M8 O5 t. I
: U, i6 O9 F% w% a( U这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
$ r8 g. o! k; N7 M2 [* w: O& qdo
- \4 |& I' k' o        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
4 f  g! w1 y" w                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
! D- o* D7 P+ e+ O2 H  o1 i7 q                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
2 U" b) G4 S. Y, N# @                        if no=PartsNo+PartsTable[2,i] then
6 s4 ^1 T" C" i5 _' y% x. u                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ t: J* r9 {0 |
  r' M, T& G& u. g" Y+ c                        end;
                        i:=PartsTable.YDim+1;
! ?8 B+ p9 j6 y" {% J, D7 g. B                end;
                m:=m+PartsTable[2,i];
" S. |4 B& x9 z5 g8 A1 v        next;
, I% x" G4 [0 G: n5 x% H8 X       
        Buf:=str_to_obj(sprint("BF",@._From));
6 R6 _: J0 q, Y7 Q6 e) w        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
' u! t) O$ a; P2 z9 \1 N( R' Z不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

8 W! E" D3 i% u5 Z( r' B( h非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的