zsp643295840 发表于 2015-6-11 11:22
/ [9 q' K0 R/ V: A再来个简洁版的 ?4 A1 g; A9 `
is
N7 N! I4 O0 m8 Y+ ^- O i,j,num,val:integer; : m. D$ ^4 V! A6 e
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
8 H' I& u: C" [7 u0 k: J另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
]- w+ M4 }3 {. {) V8 ^ for i:=1 to num loop1 k& L5 _- E9 A
isrepeat:=true; ( S" R* g P; N" S& o* t- E7 Q* Y
repeat
# d9 g0 J4 W, @+ x% e$ u& s val:=z_uniform(1,1,num+1);
7 T( H0 C3 V/ g( D; g obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
6 j8 p2 x' |1 f! J3 }- f( Z6 K obj.cursorx:=1;
1 ]0 {( z% ~$ t/ E! D9 n if not obj.find({3,1}..{3,num},val) then. K `4 E* i" R' p
obj[3,i]:=val;
# g/ p3 K4 L! j' K" _* O- B isrepeat:=false;
; [" ?- Q- A& j0 e% v end;
& B( m) ^5 ^( F+ l( d @ until not isrepeat;
, b7 G0 c) l' C/ m$ |) \% z next;
j' L2 D5 G$ X6 f1 Y( R |