delphi - 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);