Question

请给一个用Delphi随机生成不重复随机数的例子。

试过很多例子都有重复的。请大家帮帮忙。非常感谢！！！

Answer 1

使用RandomRange函数
用法是,RandomRange(起始值，终止值);
Uses Math; //加入引用单元
var //全局变量
RandomList:tstringlist;
窗悔档体创建时加入下边的代码
RandomList:=tstringlist.create;
窗体销毁时拍雀加入下边的代码
RandomList.Free;
在按钮的点击事件中加入下边代码
var
ResultNum:string;
Startvalue,Endvalue,Index:integer;
begin
Randomize;
startvalue:=strtoint(edit1.text); //起始
endvalue:=strtoint(edit2.text); //终止
Index:=strtoint(edit3.text); //生成个数
ResultNum:=inttostr(Randomrange(startvalue,endvalue));
if pos(ResultNum,RandomList.text) <> 0 then
begin
showmessage('该值已存在！');
exit;
end
else
begin
RandomList.add(ResultNum);
end;
Showmessage(RandomList.Text);
end;

以上没有经过编译器输入，自己手工打的，有错误的地方自己修正吧

以上代码,没测试,仔细袭前早一看,有误,就不修改了,
在编译环境下写完的代码发你邮箱了,请查收