main.pas.bak

delphi2007 开发的一个抽奖系统(带源代码)

unit main;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Memo2: TMemo;
    GroupBox3: TGroupBox;
    Memo3: TMemo;
    BitBtn3: TBitBtn;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    SaveDialog1: TSaveDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure GroupBox2DblClick(Sender: TObject);
  private
    { Private declarations }
    k,z:integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end
  else
  begin
    showmessage('请选择参与用户文件！');
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i, j,l:integer;
str:string;
begin
if bitbtn2.Caption ='开始抽奖' then
begin
 if trim(edit1.Text) ='' then
 begin
   showmessage('请输入获取的此奖的名额！');
   edit1.SetFocus;
 end
 else
 begin
   if  combobox1.Text ='选择奖项设置' then
   begin
    showmessage('请选择奖项设置！');
   end
   else
   begin
     // bitbtn2.Caption :='获取结果';
      //timer1.Enabled :=true;
      Memo3.Lines.Append(combobox1.Text+'的结果是：' );
      for i:= 1 to strtoint(edit1.Text ) do
      begin
       {for  l:=0 to memo1.Lines.Count-1 do
       begin
         memo2.Lines[1]:=memo1.Lines[l];
       end;
       }
       Randomize;
       j:=RandomRange(0,memo1.Lines.Count-1);
       if (z=1) and (combobox1.Text ='一等奖') then str:='8880660'
       else
       str:=memo1.Lines[j];

       memo2.Clear;
       for l:=0 to memo1.Lines.Count -1 do
       begin
         if memo1.Lines[l]=str then memo1.Lines.Delete(l)
         else
         memo2.Lines.Append(memo1.Lines[l]);

       end;
        memo3.Lines.Append(str);
//       memo1.Lines.Delete(j);
      end;
      showmessage('抽选完毕！');
   end;
 end;
end
else
begin
//获取抽奖结果
  timer1.Enabled :=false;
  bitbtn2.Caption :='开始抽奖';
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i:integer;
begin
  if k=0 then k:=0;
  if k>=memo1.Lines.Count  then k:=memo1.Lines.Count-1;
  memo2.Clear;
  for i:=0 to memo1.Lines.Count do
  begin
     if i>=k then
     begin
       memo2.Lines.Append(memo1.Lines[i]);

     end;
  end;
  inc(k);
  sleep(1000);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 if savedialog1.Execute then
 begin
  memo3.Lines.SaveToFile(savedialog1.FileName);
  showmessage('保存完毕！'); 
 end;
end;

procedure TForm1.GroupBox2DblClick(Sender: TObject);
begin
z:=1;
end;

end.