这个例子昨天正好看了,话说那本书的例子都很不错~9 z# a6 a( I6 \+ a
不过你还得把前面的表格看明白了才行,不然我这边解释也不行的。
3 S7 Y2 G# q g* u$ Y% o1 pis
% D, b: Z1 E/ N% V# a: G i,no,m:integer; --定义整型
% J% ?3 O+ [) f& ?' d Buf:object; --定义object3 \, w* V5 Q3 X
do
( O7 w, O8 M0 S m:=0;
) d& `: R+ w) u no:=@.getNo; --拾取进入系统的实体编号(每一个物体系统都会默认的给他一个编号的,出来你自己定义外) c" T. `4 i1 p$ K8 `7 n
for i:=1 to PartsTable.Ydim loop --YDIm就是指这个表格一共多少行
9 H3 K( c& _3 m4 c" n if PartsNo=m and no<=PartsNo+PartsTable[2,i] then % t* _7 q$ T. e: N
@._From:=PartsTable[5,i]; 8 v5 B2 k4 J) C6 A7 E2 A
@._To:=PartsTable[6,i];
: ? J: _; _: }, `2 j if no=PartsNo+PartsTable[2,i] then
$ v5 P9 }: p3 \% M' y PartsNo:=PartsNo+PartsTable[2,i]; --这边整个语句实际就是在说,PartsNo就是要运送的数目(表格第二列的都是运送数目),而no与m就是用来辅助不断向下读取表格的数据的(这个逻辑你要自己推敲,说的话可就长了,把数字一个个带进去)2 X- ]) L5 h) e U. h: w% N' X u0 |
( Y' }. Q+ s/ K1 Z. u
end;
6 L$ K3 f, r/ j, `& } i:=PartsTable.YDim+1;. }- a5 q* A* _- A% W7 {
end;# h! R+ V, ~; _& ]8 C0 v% H
m:=m+PartsTable[2,i];7 H$ P5 I, I, ~/ q
next;
; k0 ]* U2 O1 [9 x
2 g- \! F1 `# a* S Buf:=str_to_obj(sprint("BF",@._From));' A2 Q6 W$ k. i$ J
@.move(Buf);
- v0 Q8 C! A; T( E7 Iend; |