小编Car*_*hir的帖子

我想在delphi中创建一个随机数,并将其作为文件名分配给文件.我设法做到了,但当我点击按钮生成数字时,它始终以0开头.任何想法如何解决它

procedure TForm1.Button1Click(Sender: TObject);
var
test:integer;

begin
test:= random(8686868686868);

edit1.Text:= inttostr(test);
end;

end.