zsp643295840 发表于 2015-6-11 11:22 * B7 D* e+ G* g7 {
再来个简洁版的) v" _, k& y- v) m8 @* B
is
3 H; I; B M, U6 B& v# n i,j,num,val:integer; 1 r7 k, L; X1 x/ m3 ]% M! l! C
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
) S6 d+ _5 o2 e: M9 u# `& e另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句0 T7 s1 U7 Y8 r- v% r
for i:=1 to num loop6 r( J/ x4 |0 T0 n4 M( K& L# L
isrepeat:=true; * g; ^+ ~! k' u2 l, U
repeat
& \5 H- m" K: P val:=z_uniform(1,1,num+1);
0 s( Y" a) y) X' e# }; b obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
" ^; O5 c' s9 ]# P obj.cursorx:=1;
9 {; y& b0 d4 B+ S c- O if not obj.find({3,1}..{3,num},val) then" S' s; ~$ J+ f0 _1 |
obj[3,i]:=val;
8 ?$ f# \5 ^3 \4 @+ z/ P- N isrepeat:=false;
4 Y+ [* @; g0 i. P1 b end;2 h4 P( ], [, P5 t, W' d S
until not isrepeat;
1 L' d0 M0 K/ |: u, T next;
0 o) Z) P6 g/ c |