delphi 产生随机数

检举|2010-05-08 09:41你的样子20 | 分类：其他编程语言 | 浏览6314次

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

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;