zsp643295840 发表于 2015-6-11 11:22 & f- I9 D& i0 v$ h. @
再来个简洁版的; ^# Z1 w u" L; S0 g- p
is7 Q4 `/ b& J1 P, n. \
i,j,num,val:integer;
; x8 j I' T3 W, v7 W, |' G非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
6 {& w+ G) b5 m1 H# K( j& S P另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句/ z, W, U" L/ h0 j
for i:=1 to num loop+ n$ M& d. R1 c5 Q; c
isrepeat:=true; 6 Z; F' }1 @4 y7 f, {
repeat
3 ^% ~( y% m- w, V, d c val:=z_uniform(1,1,num+1);. M9 U6 c4 S8 @ z% a! g% z
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
2 o6 [$ Q$ B4 S4 D, W3 R! x obj.cursorx:=1;" @7 O4 }: S% [! R9 F2 v
if not obj.find({3,1}..{3,num},val) then9 L1 _2 I$ C) {
obj[3,i]:=val;
6 D, H; b N$ r) p- l6 a/ M isrepeat:=false;
: V6 }5 x' C+ Y* S, B/ y% h end;
& Z$ ]# {$ x v, y1 D6 P: t until not isrepeat;
- ~3 u% d3 T1 C% `! C next;. \0 Q, k1 m1 A4 U
|