这个例子昨天正好看了,话说那本书的例子都很不错~
* W z* h/ B) L! m6 U不过你还得把前面的表格看明白了才行,不然我这边解释也不行的。
) y( q. [! E* A: e, wis
+ J2 ]( g5 g$ z( p( Z4 ^$ l' s, y i,no,m:integer; --定义整型
' J H' x4 q, N% [7 k) B' ^ Buf:object; --定义object
7 @( x2 v; Q+ ` x" M; Z" I4 vdo
% c& h( ^, m, v U r m:=0;) g; U) \- P) F! n0 g/ L* A
no:=@.getNo; --拾取进入系统的实体编号(每一个物体系统都会默认的给他一个编号的,出来你自己定义外). K' N3 `, F, V8 B. t9 B1 L1 i
for i:=1 to PartsTable.Ydim loop --YDIm就是指这个表格一共多少行) g6 i3 P4 H' L3 g7 P# y
if PartsNo=m and no<=PartsNo+PartsTable[2,i] then " l F8 |/ }. ^$ H
@._From:=PartsTable[5,i]; : l0 O. M: Y! ^! N- v" E
@._To:=PartsTable[6,i];) [( Y" L C7 K
if no=PartsNo+PartsTable[2,i] then 8 I: l8 N" G6 R
PartsNo:=PartsNo+PartsTable[2,i]; --这边整个语句实际就是在说,PartsNo就是要运送的数目(表格第二列的都是运送数目),而no与m就是用来辅助不断向下读取表格的数据的(这个逻辑你要自己推敲,说的话可就长了,把数字一个个带进去) L/ E) b# P+ A2 c9 M8 b9 ?9 ]1 \. O
( f! R* m* X* m6 D: l3 ^
end;8 t" r3 Q" o7 f$ |# r9 j
i:=PartsTable.YDim+1;9 H3 x& D; y% T6 q2 v( I
end;
( k# B8 c/ @8 d( ~) ?8 ] m:=m+PartsTable[2,i];
+ T) L; i. j. g$ H next;
- c4 y/ k7 Y$ D3 _ 8 H, ^2 |* T% K3 x* c
Buf:=str_to_obj(sprint("BF",@._From));
) W4 f/ m* q4 \ @.move(Buf);
. |$ q' m8 t/ k Q8 z- Rend; |