Question

delphi 产生随机数

怎样产生随机数 条件是 1.这些随机数每个都不同（5个数吧） 2.随机数的范围在1到35之间 我要把他们显示在 memo1 中 怎么显示呢 谢谢大侠们了 回答好了 加 50

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
var
s:string;
begin
Randomize;
Memo1.Lines.Clear;
while Memo1.Lines.Count<5 do begin
s := IntToStr(Random(35)+1);
if Memo1.Lines.IndexOf(s)<0 then
Memo1.Lines.Add(s);
end;
end;

Answer 2

//
以下是delphi源码，可以查看
randomize
和
randseed的关系
procedure
randomize;
var
Counter:
Int64;
begin
if
QueryPerformanceCounter(Counter)
then
RandSeed
:=
Counter
else
RandSeed
:=
GetTickCount;
end;