随机数有一个答案

0 delphi random numbers delphi-7

我有这个代码

label1.Caption:= 'Number is:' + inttostr(random(2) + 1);
Run Code Online (Sandbox Code Playgroud)

但结果我每次都有"1".你能解释我做错了什么吗?

RRU*_*RUZ 6

要初始化随机数生成器,必须先调用Randomize方法才能使用随机函数.