关于随机数问题？在线等答案

[sgmao]

现在有300个员工，1--300的数
怎么样随机分配给这300个员工
并且每次启动的时候随机的数都不能相同

procedure TForm1.Button1Click(Sender: TObject);
var i,a:integer;
var j,string1:string;
begin
memo1.Clear;
memo2.Clear;
a:=strtoint(edit1.Text);
for i:=0 to a-1 do begin
j:=inttostr(random(a)+1);
while memo1.Lines.IndexOf(j)>-1 do j:=inttostr(random(a)+1);
memo1.Lines.Add(j);
memo2.Text:=memo2.Text+'员工'+inttostr(i+1)+'--->'+j+#13#10;
这段代码我试了可以用
但是每次启动的时候它随机的数都是相同的

[票票飞扬]

randomize; //
for i:=0 to a-1 do begin

[idilent]

genphone_ru(改行去学VC) 的方法可以吗？如果可以请搂主说一声。谢谢。

[sgmao]

可以，thanks