我想在delphi中创建一个随机数并将其分配给文件作为文件名。我设法做到了这一点，但是当我单击按钮生成数字时，它总是以 0 开头。知道如何修复它
procedure TForm1.Button1Click(Sender: TObject);
var
test:integer;
begin
test:= random(8686868686868);
edit1.Text:= inttostr(test);
end;
end.
正如 user246408 所说，你应该使用Randomize使用随机值初始化随机数生成器。另外，如果您想将返回的数字限制为正整数，请使用预定义的MaxInt持续的。
重载函数System.Random返回一个integer有以下签名：
function Random(const ARange: Integer): Integer;
并返回一个整数X满足公式0 <= X < ARange。
为了防止出现 0 值，您可以添加您选择的常量，例如
procedure TForm17.Button2Click(Sender: TObject);
const
MinRandomValue = 100000;
var
test:integer;
begin
test:= random(MaxInt-MinRandomValue)+MinRandomValue;
edit1.Text:= inttostr(test);
end;
（从 MaxInt 中减去 MinRandomValue 以防止溢出）
或者，您可以使用 System.Math.RandomRange
test := RandomRange(100000, MaxInt);
记录在案here http://docwiki.embarcadero.com/Libraries/XE7/en/System.Math.RandomRange
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
