zsp643295840 发表于 2015-6-11 11:22 : z9 n9 S: b4 f/ }- Y2 S; P/ h. k
再来个简洁版的
- i2 d' g# h% H: \, `7 \is# X+ I4 o2 a8 B1 }( q9 d
i,j,num,val:integer; ; w+ x; N8 e' j& ^7 i4 j8 L
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?" w) \1 e) ^; U d
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
0 O( }( c7 }' V; X0 r for i:=1 to num loop8 r8 c# _9 E' M) t2 y
isrepeat:=true; % `6 P9 x ?7 U1 I# ^/ _; T
repeat1 e! z! }9 \( d8 r0 H
val:=z_uniform(1,1,num+1);
- ]% B% V1 g5 `5 G# l' n# u obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
/ l. [1 Z( u, O7 r5 t obj.cursorx:=1;. Q1 f2 k0 v, `5 K& a; C3 G: x
if not obj.find({3,1}..{3,num},val) then8 N* _5 l2 |9 V; N
obj[3,i]:=val;
: b* I; `$ ?% `+ Q$ {: O$ [. S* C isrepeat:=false;
+ S! L2 |* n9 ?) o, p end;/ \2 c$ c% V, @0 H' h
until not isrepeat; ]6 [, _' N5 ]0 W
next;: n* g8 S# U6 R$ r
|