A am2001 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-01 #1 我是想这样的，在软件里写一个很大的数组序列号，给这个客户使用时取出一个，给第另一个客户用时再取出一个，要保存一个客户取出一个序列号后以后的客户就不会再取到相同的序列号了
J Jhdandcl Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-01 #2 建立一个已取数组列表A, 每次取出后的数据加入列表A中, 下次再取的时候判断下,是否已在列表A中,如在,重取......
Z znxia Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-01 #3 var I,X: Integer; begin Randomize;//调用Random 函数前必须调用初始化的函数 for I := 1 to 50 do begin X:=Random(100); //生成一个0..99的随机数据 end; end; //如何处理不重复的部分已经有人回答了
var I,X: Integer; begin Randomize;//调用Random 函数前必须调用初始化的函数 for I := 1 to 50 do begin X:=Random(100); //生成一个0..99的随机数据 end; end; //如何处理不重复的部分已经有人回答了
