这个例子昨天正好看了,话说那本书的例子都很不错~ k- h4 K1 B2 h; t1 Q9 u/ {$ v
不过你还得把前面的表格看明白了才行,不然我这边解释也不行的。
' n' g! B" s* T* Fis
( c. ]& n& S' ]% R4 S; x7 m1 E4 J1 ~) o i,no,m:integer; --定义整型
9 D+ o* m. ?. R; U Buf:object; --定义object3 k; z4 e: l, _8 R, H
do
& }+ Q3 Y2 e2 q+ N( | m:=0;
& \9 d: h/ [' w: {& `+ h no:=@.getNo; --拾取进入系统的实体编号(每一个物体系统都会默认的给他一个编号的,出来你自己定义外)
2 G: J4 r7 U# c2 v for i:=1 to PartsTable.Ydim loop --YDIm就是指这个表格一共多少行
1 q* o# O5 f5 B1 t8 s6 k! s if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
# x6 b* D. _6 u0 a1 Q4 ~ u @._From:=PartsTable[5,i]; 5 ?/ R$ y% R) x, E: ?. v
@._To:=PartsTable[6,i];+ g& |: @1 m8 E* r3 K: D
if no=PartsNo+PartsTable[2,i] then
5 Q3 s" `3 h. c N PartsNo:=PartsNo+PartsTable[2,i]; --这边整个语句实际就是在说,PartsNo就是要运送的数目(表格第二列的都是运送数目),而no与m就是用来辅助不断向下读取表格的数据的(这个逻辑你要自己推敲,说的话可就长了,把数字一个个带进去)3 a" N5 _' l3 m. `9 k
) {+ _& m- X# ~6 j* L! h7 T end;
+ P/ n6 m0 ~, H& |! U) u i:=PartsTable.YDim+1;
) U' F4 R/ ~5 p$ V- G$ J end;5 F, m+ q3 ~* q% U+ @
m:=m+PartsTable[2,i];
( ]- {3 Q; M3 U* a next;/ V B% x$ ~* d0 L: A4 S7 S
3 d" w5 U5 @) P6 r Buf:=str_to_obj(sprint("BF",@._From));% ?! B8 N0 U4 G* a: w5 h9 I
@.move(Buf);. V' ~: n2 J6 p9 N% z$ C
end; |