Delphi中数组中的随机值

Question

我有以下代码。

const
   dimensions: array [1 .. 5] of string = ('100 ', '200', '300 ', '400', '500 ');

我所做的是在该数组中选择一个随机值以显示在ShowMessage（）;

上

但是如何做到这一点，有人可能会说你从数组中选择一个随机值？

Answer 1

您可以使用RandomRange选择1到5之间的值。这样做：

Index := RandomRange(1, 6);

这似乎有点违反直觉，但下限是包容性的，上限是非包容性的。

另一种方法是直接使用Random：

Index := 1 + Random(5);

你甚至可以取消你的阵列并写下：

IntToStr(100*RandomRange(1, 6))

Answer 2

最简单的解决方案是

    myString := dimensions[Random(Length(dimensions))];

请记住在使用Random之前初始化随机种子，否则您将无法获得“真正的”随机值。

    Randomize;
    myString := dimensions[Random(Length(dimensions))];
    Showmessage(myString);