我的第一份上傳作品。。請多多指教。。。（搖號器）

unit yaohaoqiU;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Button2: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,r,l:integer;
  s:string;
  All:array[0..1000] of integer;//這個數組用來裝隨機數的
  Result:array[0..1000] of integer;//這個數組用來裝結果的
begin
 l:=label3.Height;
if  spinEdit1.Value<spinEdit2.Value then
begin
    label3.caption:='錯了喔..倒了也!';
    label3.Width:=353;
end
else
begin
  for i:=0 to spinEdit1.Value-1 do
    All[i]:=i;
  //產生M個隨機數
  for i:=0 to spinEdit2.Value-1 do
  begin
    j:=random(spinEdit1.Value);
    r:=j mod (spinEdit1.Value-1-i);
    Result[i]:=All[r];
    All[r]:=All[spinEdit1.Value-1-i];
  end;
  ListBox1.Clear;
  s:=' ';
  for i:=0 to spinEdit2.Value-1 do
  begin
    s:=s+inttostr(Result[i])+' ';
    ListBox1.Items.add(inttostr(Result[i]));
  end;
   label3.caption:=s;
   label3.Width:=353;
end;
  form1.Height:=(300+(l-110));
  form1.InitiateAction;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

運行時：

輸入後結果：

改個數後結果：