zsp643295840 发表于 2015-6-11 11:22
+ I! t7 T- B" T; n3 Z/ T2 @再来个简洁版的
. ?% o' s# S8 Z0 {7 Kis" M& o8 G8 T, ~! _. ^
i,j,num,val:integer;
8 t) h$ x8 g0 y非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
+ ~2 `* L6 |9 l% I0 I另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句1 Y2 p4 B! ]( [: q5 ~5 X) l2 ~
for i:=1 to num loop
! }/ }* ^, ?/ Q7 P" D isrepeat:=true;
4 Q6 e, g* d! E( b0 B' |8 `. E6 Q/ D repeat" c. q F4 u' ^% c% I: a% G
val:=z_uniform(1,1,num+1);
P& S9 b3 F4 H0 w$ n; l, o) F obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1+ a2 k: Q4 X* Y6 z
obj.cursorx:=1;
3 V ?4 q8 V# }- O0 F) i) r if not obj.find({3,1}..{3,num},val) then- g# U8 A- F0 |; r$ L
obj[3,i]:=val;1 y0 K& T& k3 q* p8 L: s4 s$ W5 \
isrepeat:=false;- y8 |+ L3 }6 o
end;
5 J8 K" \" n7 t2 y7 ` until not isrepeat;1 K# J, _) m/ l9 X( q' P: ~ @$ @1 g. I
next;
! V$ S6 t, ~! o! `- y8 i7 A' o |