如何在delphi中显示随机数组的char

Question

我现在正在忙着写一个数学程序/游戏。

我正在使用三个标签：

// Every time a modal is shown, if it has an autofocus element, focus on it. $('.modal').on('shown.bs.modal', function() { $(this).find('[autofocus]').focus(); }); 和lblNum1 =显示0到13之间的随机数

lblNum2 =显示随机运算符[+， - ，×，÷]

我很难找到关于lblOpp如何从列表lblOpp生成随机字符的代码

我将运算符放在[+, -, ×, ÷]的数组'运算符array[1..4]中;' 随机显示数字很容易，因为随机函数只适用于整数。我只是不知道如何随机显示我的数组值。 请帮忙，谢谢。

Answer 1

由于您的字符值在数组中，只需生成1..4之间的随机数，并将其用作数组的索引。

const
  operator : array[1..4] of char = ('+', '-', '×', '÷');

lblNum1.Caption := IntToStr(Random(14));
lblNum2.Caption := IntToStr(Random(14));
lblOpp.Caption := operator[1 + Random(4)];