zsp643295840 发表于 2015-6-11 11:22
; ^( f4 m: ~9 H# p4 f4 t再来个简洁版的! o7 h3 I7 G0 I& c# Z2 ] Q* \
is
; X b( \& m0 ]/ h6 O' F; E; p3 m, ` i,j,num,val:integer;
, z# U% H4 b& x- ^% K非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
2 x; q& w2 ^& J1 p+ Z6 I另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句1 f, S' C1 k, B) g5 S. `
for i:=1 to num loop# A9 i8 a0 u$ n) U6 l5 Z; s1 z
isrepeat:=true; 3 O/ ~ T) s8 V0 x7 [4 H' W
repeat
+ G& ?8 ^, j" D! `7 ^5 u% h val:=z_uniform(1,1,num+1);3 j: `. a/ v- {2 t+ e& ]
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1& p4 p/ v5 u! [; O, R- |
obj.cursorx:=1;- o9 n- ]. j+ }; E( ?
if not obj.find({3,1}..{3,num},val) then
$ E( j1 f: k, D" t+ @2 [2 R z obj[3,i]:=val;
1 f3 X- C3 F* O! ~% d isrepeat:=false;6 F1 n$ A3 n, m# Q
end;. c0 K' o/ ~0 y
until not isrepeat;0 H2 ]3 u2 c" y# W$ m
next;
0 w+ A! [9 k% I |