Question

delphi中随机获取一组数，所得到的数不能重复，代码该怎么写？

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..7]of integer;
var i:integer;
begin
randomize;
for I := 1 to 7 do
begin
a[i]:=trunc((31-1+1)*random+1);
edit1.text:=edit1.Text+inttostr(a[i])+',';
end;
edit1.text:=copy(edit1.text,1,length(edit1.text)-1);
end;
怎么修改 可以不重复出现随机相同的数

Answer 1

采用Math单元中的Random函数即可取得随机数了

Random(10) 取 小于 10的随机数

在重复使液闷用前尘裂可用 Randomize 来重新初始化内部随机数列派埋闭

Answer 2

告诉你个笨方法。
每次生成一个随机数就判皮肆断是否和悔握樱以碧丛前的重复就行。

加以下语句
...
var
j : integer;
...
a[i]:=trunc((31-1+1)*random+1);
if i > 1 then
for j := i - 1 downto 1 do
while a[i] = a[j] do
a[i]:=trunc((31-1+1)*random+1);
...