这个例子昨天正好看了,话说那本书的例子都很不错~
. p J P" W3 e! P不过你还得把前面的表格看明白了才行,不然我这边解释也不行的。
3 a7 s" p0 H: R8 i8 h; A! fis$ M4 U# h0 H6 j& [
i,no,m:integer; --定义整型
8 `; F5 z) G! C& d Buf:object; --定义object ^' _# b7 e k+ W; y
do
; C2 i6 f% v1 c+ d* A m:=0;
2 Q: }2 x" V( x. H0 J0 \ no:=@.getNo; --拾取进入系统的实体编号(每一个物体系统都会默认的给他一个编号的,出来你自己定义外)
8 N& q! G. \1 f for i:=1 to PartsTable.Ydim loop --YDIm就是指这个表格一共多少行
9 l" s- X3 z; ^( C; h if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
/ m5 W/ E/ K+ b3 O! Q0 J @._From:=PartsTable[5,i]; , |* \& |0 ~+ Z4 W
@._To:=PartsTable[6,i];
: l9 x; l1 n7 m) @% }, y3 @# N if no=PartsNo+PartsTable[2,i] then & q8 c9 H9 O, K$ h, F6 H
PartsNo:=PartsNo+PartsTable[2,i]; --这边整个语句实际就是在说,PartsNo就是要运送的数目(表格第二列的都是运送数目),而no与m就是用来辅助不断向下读取表格的数据的(这个逻辑你要自己推敲,说的话可就长了,把数字一个个带进去)9 g% S+ g( C2 a/ N) A( a
4 m N+ w. t6 l8 e9 Y7 @ end;: [# K/ x' i( |3 K
i:=PartsTable.YDim+1;
5 B+ J C1 ~2 w5 G4 q end;# v1 R2 |) S: f& d. g
m:=m+PartsTable[2,i];+ ?* V X8 j: A& R
next;
+ N: p j' @, Z7 J ' V1 I. x" g/ G% x& b
Buf:=str_to_obj(sprint("BF",@._From));
/ ~* I9 [" G$ v8 {8 K9 T/ p M @.move(Buf);
' C4 e+ t1 X+ L; X# p$ F" x- Nend; |