delphi - 帕斯卡 : How to randomize two images on Turbo Delphi

Question

我的任务是在我的屏幕上显示两个图像(两个 TImage)，一个是头部，另一个是尾部(硬币)，并带有一个 TButton 来随机化它们。

就是当你按下按钮时，两个图像会随机选择正面或反面。

我知道这是一个简单的问题，但我只是在学习。就是不知道用什么!

Answer 1

您需要从具有两个可能值的离散均匀分布中采样。所以像这样:

function IsHead: Boolean;
begin
  Result := Random()<0.5;
end;

或者像这样:

function IsHead: Boolean;
begin
  Result := Random(2)=0;
end;

您需要调用 Randomize在程序启动的某个地方，以确保每次运行程序时不会得到相同的伪随机数序列。

我假设您已经知道如何编写按钮 OnClick事件处理程序，并切换 TImage 的可见性控制。