随机选择组合框delphi 7

Question

我在delphi 7的组合框中列出了项目，我使用它们各自的索引号来引用它们，并且工作正常。现在，我要添加一个随机选择功能，即用户选择随机，然后将选择组合框中的一项。我已经做过一些研究，但是我得到的所有结果都与我想要的不尽相同。请给我一些帮助。谢谢

Answer 1

您可以使用RandomRange单位中的RandomRange函数来获取给定范围内的随机整数：

Math

注意：

procedure TForm1.btnRandomItemClick(Sender: TObject);
begin
  ComboBox1.ItemIndex := RandomRange(0, ComboBox1.Items.Count);
end;

在[A，B）中产生一个随机整数∩= {A，A + 1，...，B − 1}。

[不要忘记在需要使用随机数之前致电RandomRange(A, B)。 （您可以在应用程序启动期间调用它。）

更新：

如果Randomize在Delphi 7中不可用，则可以改用Randomize：

Math.RandomRange

[Random(int)在[0，B）中产生一个整数∩= {0，1，...，B − 1}。