main.pas

春节时单位搞活动的小程序

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, RzLabel, ChLed, ExtCtrls, RzPanel,math, jpeg;

type
  TMainForm = class(TForm)
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Memo1: TMemo;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    Timer1: TTimer;
    RzBitBtn6: TRzBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    Memo2: TMemo;
    Memo3: TMemo;
    Image2: TImage;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzPanel1: TRzPanel;
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  RS,DT,ADT:integer;
  CG:string;

implementation

{$R *.dfm}

procedure TMainForm.RzBitBtn4Click(Sender: TObject);
begin
    memo1.Lines.Append(RzLabel2.Caption);
    RzBitBtn4.Enabled:=false;
    RzBitBtn3.Enabled:=true;
end;

procedure TMainForm.RzBitBtn1Click(Sender: TObject);
begin
    RS:=RS+1;
    RzLabel2.Caption:=CG+'　答对：'+inttostr(RS)+'题';
    RzBitBtn2Click(self);
end;

procedure TMainForm.RzBitBtn5Click(Sender: TObject);
begin
   DT:=ADT;
   RS:=0;
   RzLabel1.Caption:='剩余时间 '+inttostr(DT)+' 秒';
   Timer1.Enabled:=true;
   RzBitBtn1.Enabled:=true;
   RzBitBtn2.Enabled:=true;
   RzBitBtn3.Enabled:=false;
   RzBitBtn4.Enabled:=false;
   RzBitBtn5.Enabled:=false;
   RzBitBtn2Click(self);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
   Dt:=Dt-1;
   RzLabel1.Caption:=inttostr(Dt)+' 秒';
   if Dt=0 then
     begin
        Timer1.Enabled:=false;
        RzBitBtn1.Enabled:=false;
        RzBitBtn2.Enabled:=false;
        RzBitBtn4.Enabled:=true;
        RzLabel1.Caption:='时间到，停止答题！';
     end;
end;

procedure TMainForm.RzBitBtn3Click(Sender: TObject);
var i,t:integer;
begin
   if RzBitBtn3.Caption='下一组' then
     begin
       i:=memo3.Lines.Count;
       if i>0 then
         begin
           Randomize;
           t:=RandomRange(0,i);
           //memo1.Lines.Add();
           CG:=memo3.Lines[t];
           RzLabel2.Caption:='请　'+CG+'　准备答题';
           memo3.Lines.Delete(t);
           if memo3.Lines.Count=0 then RzBitBtn3.Enabled:=false;
         end
       else RzBitBtn3.Caption:='保存';
       RzBitBtn5.Enabled:=true;
       RzBitBtn3.Enabled:=false;
     end
   else
     begin
        if SaveDialog1.Execute then
        memo1.Lines.SaveToFile(SaveDialog1.FileName);
     end;
end;

procedure TMainForm.RzBitBtn2Click(Sender: TObject);
var i,t:integer;
begin
   i:=memo2.Lines.Count;
   if i>0 then
     begin
       Randomize;
       t:=RandomRange(0,i);
       RzPanel1.Caption := memo2.Lines[t];
       memo2.Lines.Delete(t);
     end;
end;

procedure TMainForm.RzBitBtn6Click(Sender: TObject);
begin
    if opendialog1.Execute then
      begin
        Memo2.Lines.Clear;
        memo2.Lines.LoadFromFile(OpenDialog1.FileName);
      end;
end;

procedure TMainForm.RzBitBtn7Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
      begin
          Memo3.Lines.Clear;
          memo3.Lines.LoadFromFile(OpenDialog1.FileName);
      end;
end;

procedure TMainForm.RzBitBtn8Click(Sender: TObject);
var TT:string;
begin
    TT:=inputbox('设定定时时间','请输入限制的答题时间,以秒为单位','120');
    ADT:=strtoint(TT);
end;

end.