如何得到一个不重复的随机数(用DELPHI语言)

来源：百度知道 编辑：UC知道 时间：2024/06/07 20:58:59
比如1-100之间的随机数,比如,如果得到了50,那么下次随机时希望得到的数不是50
如果用数组的话,下一次进入程序或者重起机器都会释放掉么?有可能产生重复么?能否用INI文件或TXT文件记录下已经产生的数,然后再ADD到STRINGLIST中进行判断.求教!~

定义一个数组，用来保存已经有的数字
function CheckIsHave(int:Integer):Boolean;
begin
//查找是否数组里已经有了，有了true 没有false
end;

while a=0 or CheckIsHave(a)=True do
begin
a:=Random(100);
end;

别的就不写了