for local i := 1 to parttab.yDim loop
5 Z. d% E, t; n( O4 f
5 V6 |( D* O8 y for local j := 1 to parttab.xDim loop
3 i& a+ D3 `0 s0 N
0 K. K3 K; k* u/ c/ U- W part := parttab[j,i];. t6 W" b6 e, d4 K$ M7 J
# l" e& h) Z# A' i9 v0 r+ W$ W; S
DestinationTab.setCursor(1,1);: ^6 m) Z" W( d# d0 d
if not DestinationTab.find(track) then+ Z; r; M& a5 b$ B2 ~* I
DestinationTab[1, DestinationTab.yDim + 1] := track;
, x' j# y$ S2 P2 ], T end;$ A9 ? C+ Y) w6 N
next;
$ z& @4 p; L* K
x A4 L- f6 r8 `% p1 S6 L" `* [ next;
; R- @/ e2 ~3 O, Y) I+ i6 B) t" c
-- sort destination table
0 }3 U; Q: {1 O DestinationTab.sort(1,"up"); # p. T3 k2 l& T( [
& f" b) D* o) e6 _9 i
@.Destination := DestinationTab;# e8 v, @% H* @. I+ g# `2 l5 F. n
$ G+ \7 n+ B- K3 t/ P$ }! z6 h" E
end;2 ]0 U) G$ X, [
新人求教,红色部分解释下吧,多谢 |