zsp643295840 发表于 2015-6-11 11:22
0 [& T% M( `/ F+ \8 d; C再来个简洁版的
% |8 f( W6 k8 A6 b. [is
' u) v4 a! c) w) |6 V i,j,num,val:integer;
5 c, t) k/ v! N# A" G非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?$ X" w( G0 J5 R9 L" ~
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
& Q- D! x' ]5 [ for i:=1 to num loop
% [- W# Q: T, R: H) o isrepeat:=true;
% t. i9 J5 h3 h: ?$ B repeat9 X1 R, O& s" c' s& t- c
val:=z_uniform(1,1,num+1);
- A' t" n( f9 D obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1/ a g" e j; P/ _" P! `
obj.cursorx:=1;
; U8 U5 L3 G$ I* u @0 \ if not obj.find({3,1}..{3,num},val) then
, Q* }2 F# X8 w- ^. c) c obj[3,i]:=val;: V1 y' N0 m- ^. w# p( j) |4 |
isrepeat:=false;
; ]5 @0 g' e( ~+ f% @ | end;( ?0 d. p/ u2 g/ G6 U* {1 M
until not isrepeat;+ w2 L& {7 B2 _8 x$ y, k
next;& v/ N) f2 ]9 r2 T2 R
|