怎样随机产生四位的数字？

Question

怎样随机产生四位的数字？最大为9999，最小为0000

Answer 1

上面就是了：）http://lysoft.7u7.net

Answer 2

Randomize;
Random(××××);

Answer 3

Randomize;
edit1.text:=(inttostr(Random(10000+random(1000))));

Answer 4

Randomize;
Random(10000);
没问题

Answer 5

你要返回0000表示你返回的是一个字符串，不是我说得对不？uses StrUtils;function GetRndNo: string;
begin
  Randomize;
  Result:= IntToStr(10000+Random(10000));
  Result:= RightStr(Result, 4);
end;

Answer 6

产生一个在范围 [a,b)内的数字的数学推导：设随机数为r(r∈[a,b))
要求：
a<=r<b
0<=r-a<b-a
设r2=r-a
所以r2∈[0,b-a)＝random(b-a)
--> 
r=r2+a=random(b-a)+a
所以处在[a,b)之间随机数为random(b-a)+a
:P

Answer 7

景上添花吧
  
function GetRandomSeed(MaxSeed: Integer): String;
begin  Randomize;
  Result:= Format('%0.4d',[Random(MaxSeed)]);end;调用时可以用
  GetRandomSeed(9999);