for local i := 1 to parttab.yDim loop
# F; } M1 i1 f; e2 B' F! ?! } 6 ^1 R' P( J. b% B( a k9 Y/ u) B
for local j := 1 to parttab.xDim loop" A7 o! L" Q! {5 z
4 \( d+ k6 k7 e. [
part := parttab[j,i];- l, X5 k. J* \! w L7 N
( V( I5 H' F% D4 S: g DestinationTab.setCursor(1,1);' r" e3 L# N9 Q7 h
if not DestinationTab.find(track) then& E0 r/ C6 k. E- r, W
DestinationTab[1, DestinationTab.yDim + 1] := track;9 Z, V, x. P& L% M
end;
& y3 a2 L5 {! h, v2 x9 W0 }& D next;
2 ~ v; Q8 o( L8 W9 x- w% s' I
+ C5 n: b% R) P. {& Q5 F& _- O8 {' e next;3 c- A e2 x* K- z
; Z7 O; C* u' a" I2 o -- sort destination table
# P6 }7 Q+ C! i) E( ?$ a DestinationTab.sort(1,"up");
2 N8 P* U9 ]3 \4 `9 V" [
' w6 s2 D* j: Q7 H @.Destination := DestinationTab;
, T( v( k, j7 m/ d8 o3 V1 _2 `3 i8 T
end;& ^9 w& o4 k6 n0 u; x
新人求教,红色部分解释下吧,多谢 |