zsp643295840 发表于 2015-6-11 11:22 9 s' f7 r8 S9 @
再来个简洁版的$ h) t$ U% j1 Y0 G1 @
is
" k. p( ?' ~2 S. l" q- w$ V8 v K' E i,j,num,val:integer; * X5 |, J; y) d4 J# s# @/ O
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
5 e9 |' B' [$ k- x- d2 c另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句3 Q8 P; n. D/ A( K
for i:=1 to num loop) Q+ ^. x9 X: U* ^4 n, H! K$ R
isrepeat:=true; / B5 `, t& W* p1 p* a K
repeat
) N1 U9 s: T0 W! m6 B6 D val:=z_uniform(1,1,num+1);
& e. }! S$ d A3 L; ], t1 | obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
( V& T; K b8 L- A! @8 e obj.cursorx:=1;/ a. i+ [, m( P+ e
if not obj.find({3,1}..{3,num},val) then9 e. r' k5 a, @3 i3 e! a/ r
obj[3,i]:=val;4 d; ~4 `6 H( W5 q6 p- {; x+ P! v
isrepeat:=false;
8 p& r4 {8 y; O2 d- m$ } end;
9 c5 |5 x4 m* S% X6 d" P until not isrepeat;# c, V; _9 i8 D* m. x1 |, m$ _
next;
/ `9 u- w2 U2 k' [ |