delphi - 一个答案的随机数

Question

我有这个代码

label1.Caption:= 'Number is:' + inttostr(random(2) + 1);

但结果我每次都有“1”。你能解释一下我做错了什么吗？

Answer 1

要初始化随机数生成器，您必须Randomize在使用 random 函数之前调用方法。