zsp643295840 发表于 2015-6-11 11:22 
) N* q; d6 H9 U再来个简洁版的1 E3 M( l% `) u* C- s0 B
is6 Y+ T+ U; P7 P+ h8 B
i,j,num,val:integer;
5 u$ g- Z- V2 {2 M8 W1 b非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？6 l3 p0 l8 ?# m
另外 你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句6 \$ u0 @6 R5 {# }
for i:=1 to num loop9 O0 }0 k2 z* O2 j" C6 R& y) r. v
isrepeat:=true; 3 T1 N8 o1 o- N, L2 Y
repeat
8 U. u# |0 B. [8 t7 l val:=z_uniform(1,1,num+1);2 i6 M, z: m- _' B$ V& n9 T% k5 ^
obj.cursorx:=3; 这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和19 D' d+ }" q1 X h0 [1 V
obj.cursorx:=1;
9 G2 L$ x- _. M5 p+ ` if not obj.find({3,1}..{3,num},val) then$ |! P( A- X6 d' \# z
obj[3,i]:=val;% G, T3 F; b6 ]( `' e( S- k
isrepeat:=false;
& m. a0 J) c% i( q end;
+ D: a. L" p; W' f until not isrepeat;2 e5 X' m) x) Y$ }( Z* `0 T! m
next;: T% v7 z! o4 p# @& E- h
|
[复制链接]
发表于 2015-6-11 09:57:59
楼主