for local i := 1 to parttab.yDim loop
4 w2 S6 w3 a( B
: k. Y0 i& i+ _8 C, c: M# X for local j := 1 to parttab.xDim loop( y# ~% p" W9 y* n, ^
* D. E7 l5 z8 }* [# q, w; e part := parttab[j,i];
+ d9 U+ b: v3 f% C8 ^
~) t" ~1 o/ `* Q" m2 Q; t' V DestinationTab.setCursor(1,1);( R2 n& q u. Z& G, Z; R( W$ A" x
if not DestinationTab.find(track) then
4 i. b9 k% }# Z$ _8 s3 @$ I3 _ DestinationTab[1, DestinationTab.yDim + 1] := track;9 v I9 x6 Z* O, w" x, q1 W* x: ^
end;7 u! \% @4 z( Y! z
next;
# m- r4 l( C1 l% w d- A
6 z' i% H1 f/ y9 H. h( | next;
& G* b( @. @' i/ p* R
3 F& ]" c j5 n, {, N -- sort destination table: Y( C2 |6 R/ @/ |( o" X
DestinationTab.sort(1,"up"); 4 d/ B7 M [' o! k
/ L3 x' D( ^' Q: G: F3 e
@.Destination := DestinationTab;
9 b& F6 U$ \) D+ ]/ L; l
0 i" s7 j8 u2 K' R5 x% `0 rend;9 s# f7 l4 u1 ~1 }
新人求教,红色部分解释下吧,多谢 |