zsp643295840 发表于 2015-6-11 11:22 % K% v; P) _ R5 e5 t0 L5 Y" E ]
再来个简洁版的
O& ~5 E. q4 q8 k8 ~is6 {4 \5 t2 z3 v# ~) t: [5 N
i,j,num,val:integer; 9 Y' J# ?" R7 s( t
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
8 u: N9 t# w' \% i8 `+ X* r另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
3 l- S2 ^0 v: r for i:=1 to num loop
" ^4 @ w8 w8 ]- X isrepeat:=true;
/ A! A+ S4 a, ?& z; G repeat+ l* X: f* j* V6 G# I I
val:=z_uniform(1,1,num+1);
0 ^! ~% F# O2 S; e( e obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
$ f/ C/ Y/ t4 H+ b6 F obj.cursorx:=1;4 o- w, ^, X: c8 [! R+ }" Y
if not obj.find({3,1}..{3,num},val) then" _( w& z; p' S% |, m3 U( R: q
obj[3,i]:=val;
# _4 r8 j0 x* N: S( V2 ` isrepeat:=false;9 w6 Z+ |2 w- ~5 h/ H3 {: T5 N
end;% B, [* S/ h1 w. |- x
until not isrepeat;
7 n" {2 ?5 @1 [; S4 ` next;
. W3 P1 m7 J+ V. E |