如何将 select 五个随机不重复按钮复制到 panel1？

Question

我有 20 个在程序启动时自动创建的按钮。 如何将 select 五个随机不重复按钮复制到 Panel1 组件？

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:TForm1;
  but:array[1..9] of TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 20 do
  begin
    but[i] := TButton.Create(Form1);
    but[i].Parent := Form1;
    but[i].Caption := IntToStr(i);
    but[i].Font.Size := 26;
    but[i].Width := 50;
    but[i].Height := 50;
    but[i].Left := 50 + Round(i mod 3)*but[i].Width;
    but[i].Top := 50 + Round(i / 3)*but[i].Height;
  end;
end;

end.

Answer 1

算法是这样的：

1. 保持对数组中按钮的引用。
2. 执行数组的统一洗牌，例如使用Fisher-Yates洗牌。
3. 从数组中选择前 5 个项目。

如果您愿意，可以通过在其循环的 5 次迭代后中断 shuffle 来优化这一点，因为此时已经选择了前 5 个项目。 但是，对于这么小的阵列，这可能不是必需的。

周围有很多 Fisher-Yates 的实现，虽然要注意很大一部分实现不正确，但正确的实现也比比皆是，例如这里https://stackoverflow.com/a/20361298/505088

你可以做的比使用 spring4d 库来完成这个任务更糟糕。

就复制按钮而言，创建新按钮并复制您需要的属性。 将这项工作想象为实际选择 1 到 20 之间的 5 个随机数字，然后创建 5 个以这些数字为标题的按钮可能更容易。 同样，这只是数字的洗牌。

如果要将 20 个项目放入一个数组中，则需要确保该数组足够大。 您的数组可以容纳 9 个项目，但您尝试放入 20 个。