这个例子昨天正好看了,话说那本书的例子都很不错~
3 g7 Q1 b Z5 b不过你还得把前面的表格看明白了才行,不然我这边解释也不行的。
/ \6 k% y, T2 K6 r, Kis
0 d" k9 Z1 p3 Z3 l B, i* ? i,no,m:integer; --定义整型5 E/ r2 p' z8 e$ K
Buf:object; --定义object5 I" Q4 ]* d$ I7 A; W/ E' d
do
( L% `5 |+ X/ t' v, ~9 {" j" Z m:=0;9 c. M& U0 S$ O( E' l" Q& N
no:=@.getNo; --拾取进入系统的实体编号(每一个物体系统都会默认的给他一个编号的,出来你自己定义外)
5 O: \4 A0 N4 G5 y5 a* k0 | for i:=1 to PartsTable.Ydim loop --YDIm就是指这个表格一共多少行
+ Q2 A; ?) u7 [& s) V if PartsNo=m and no<=PartsNo+PartsTable[2,i] then ) s" H5 c9 @! V3 ~# m" n
@._From:=PartsTable[5,i]; $ Z6 M# \5 V# H( V; Z. |2 {
@._To:=PartsTable[6,i];+ a6 y* V5 U" j. Z6 w: J
if no=PartsNo+PartsTable[2,i] then
, N# V2 n# ?; _8 F9 }& n* v% G PartsNo:=PartsNo+PartsTable[2,i]; --这边整个语句实际就是在说,PartsNo就是要运送的数目(表格第二列的都是运送数目),而no与m就是用来辅助不断向下读取表格的数据的(这个逻辑你要自己推敲,说的话可就长了,把数字一个个带进去)4 X. L! y, ?( m6 ?" [
3 N2 A& K/ D3 |/ a5 O end;- Y5 F; q5 A/ Y# c/ n
i:=PartsTable.YDim+1;
" t0 W2 L/ P+ x3 V m5 u: \# K end;; O$ c# y; s9 O3 Y5 j
m:=m+PartsTable[2,i];
2 L+ H. n7 y( N2 ~3 Z next;
3 ^% Y& X9 D( N1 s; N / h6 x0 m- h8 r" J- R/ s, X
Buf:=str_to_obj(sprint("BF",@._From));7 x5 C( i" W; p* W, {6 [
@.move(Buf);& m' r' j* V3 ~" _0 ^ ]
end; |