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

热翔啊

is
. A7 A$ W( ~7 \9 U/ D& s2 V        i,no,m:integer;
        Buf:object;
6 L- n, t; G) j' ]) {) }do
6 [( E5 C/ K9 c# A1 F5 ]        m:=0;
        no:=@.getNo;
) L, B9 p, X0 [9 i* V; o        for i:=1 to PartsTable.Ydim loop
. b( Z& @: Q2 c( o" D4 J3 ]5 I                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
% ^  U  l6 P/ G! n+ D0 _) c                        @._From:=PartsTable[5,i];
% Y  U! N& L4 ~" V' V                        @._To:=PartsTable[6,i];
6 [% G2 g# b8 D/ h                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
' e& l& O% G/ J, d        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
, g) o* ?) L" W+ G; G" [end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
5 t9 K6 k) f# ^不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
4 Q# @  t- Q$ q7 Mis
( {6 T; U5 K, M( X, l) x4 ~        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
1 {# X' [% a) K/ V9 {        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
8 F: ^5 H0 A, [- |  L/ l6 l& [2 T                        @._From:=PartsTable[5,i];            
, i- g4 s4 R4 ?7 V                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
& s  `5 m9 [) C+ T: H; g
; |/ b' M' H/ f. d% y                        end;
3 X% g; p: S$ K                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
# m% h1 W$ g4 }/ p1 E; R        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
$ L' j+ H8 _% \, a1 b# Jend;

热翔啊

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

8 J8 B' L$ t* _4 M% q非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的