unit1.pas

随机抽奖程序 抽出一等奖1名

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text := '';
Memo1.Text := '';
Memo2.Text := '';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
 var
   A:integer;                 //A、B、C分别用于接收一二三等奖的号码
   B,C:array of integer;
   tempSet: set of 1..255;
  I, N: integer;
begin
 edit1.Text := '';
Memo1.Text := '';
Memo2.Text := '';
 tempSet := [0];
 Randomize;
 A := random(10001);                                 //随机
 tempSet := tempSet + [A];                          
 if A<10 then  edit1.Text:='0000'+ IntToStr(A)       //设置输出格式
 else if A<100 then  edit1.Text:='000'+ IntToStr(A)
 else if A<1000 then  edit1.Text:='00'+ IntToStr(A)
 else if A<10000 then  edit1.Text:='0'+ IntToStr(A);
 
 I := 10; //取I个整数;
 SetLength(B, I);
 I := Low(B);
  while I <= High(B) do
  begin
    Randomize;
    N := random(10001);
    if not(N in tempSet) then
    begin
      B[I] := N;
      I := I + 1;
      tempSet := tempSet + [N];
      if n<10 then                                   //设置输出格式
      Memo1.Text := Memo1.Text +'0000'+IntToStr(N) + '   '
      else  if n<100 then
      Memo1.Text := Memo1.Text +'000'+IntToStr(N) + '   '
      else if n<1000 then
      Memo1.Text := Memo1.Text +'00'+IntToStr(N) + '   '
      else if n<10000 then
      Memo1.Text := Memo1.Text +'0'+IntToStr(N) + '   ';
    end;
  end;

   I := 100; //取I个整数;
 SetLength(C, I);
 I := Low(C);
  while I <= High(C) do
  begin
    Randomize;
    N := random(10001);
    if not(N in tempSet) then
    begin
      C[I] := N;
      I := I + 1;
      tempSet := tempSet + [N];
       if n<10 then                                     //设置输出格式
      Memo2.Text := Memo2.Text +'0000'+IntToStr(N) + '   '
      else  if n<100 then
      Memo2.Text := Memo2.Text +'000'+IntToStr(N) + '   '
      else if n<1000 then
      Memo2.Text := Memo2.Text +'00'+IntToStr(N) + '   '
      else if n<10000 then
      Memo2.Text := Memo2.Text +'0'+IntToStr(N) + '   ';

    end;

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled :=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer1.Enabled :=False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin                                                   //显示获奖名单
Form2.show;
Form2.Memo1.Lines[1]:='一等奖：'+Form1.Edit1.Text;
Form2.Memo1.Lines[2]:='二等奖：'+Form1.Memo1.Text;
Form2.Memo1.Lines[3]:='二等奖：'+Form1.Memo2.Text;
end;

end.