哪位大哥能帮我写一个产生随机数的程序啊？？？急求！

[gou_xp]

我想点击button时，随机产生一个数显示于edit中，哪位大哥帮帮忙啊？万分感谢！

[老之]

randomize;
Edit1.Text:=IntToStr(Random(100));

[postren]

（注释一下老之的）
randomize; //初始化随机种子
Edit1.Text:=IntToStr(Random(100)); //100是返回随机数的范围

[stonezhy]

random(1000-500)是500 到1000之间的随机数

[csnight]

记得以前面试的时候,别人叫我写一个取得随机数的函数,我说我一般就用Random函数.
结果.....
今天借楼主的地方,请高人给一个取的随机数的代码

[gou_xp]

我想问一下，在这个数值范围内，包不包括0啊？？？／／／／

[stonezhy]

500 + random(1000-500)

[postren]

function Random [ ( Range: Integer) ];

Description

In Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.

To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to Random.

Note: Because the implementation of the Random function may change between compiler versions, we do not recommend using Random for encryption or other purposes that require reproducible sequences of pseudo-random numbers.

[stonezhy]

包括