unit1.~pas

学位英语单词软件用Borland公司推出的基于Object Pascal语言的可视化开发系统Delphi 7.0为自己记单词方便而编写这个程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    dcgg: TMenuItem;
    dcgg1: TMenuItem;
    dcgg2: TMenuItem;
    dcgg3: TMenuItem;
    dcgg4: TMenuItem;
    dcgg5: TMenuItem;
    dcgg6: TMenuItem;
    dcgg7: TMenuItem;
    dcgg8: TMenuItem;
    dcgg9: TMenuItem;
    dcgg10: TMenuItem;
    dclx: TMenuItem;
    dclx1: TMenuItem;
    dclx2: TMenuItem;
    dclx3: TMenuItem;
    dclx4: TMenuItem;
    dclx5: TMenuItem;
    dclx6: TMenuItem;
    dclx7: TMenuItem;
    dclx8: TMenuItem;
    dclx9: TMenuItem;
    dclx10: TMenuItem;
    help: TMenuItem;
    dc9: TMemo;
    dc8: TMemo;
    dc7: TMemo;
    dc6: TMemo;
    dc5: TMemo;
    dc4: TMemo;
    dc3: TMemo;
    dc2: TMemo;
    dc10: TMemo;
    dc1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    Timer1: TTimer;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    SpinEdit2: TSpinEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button6: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure dclx1Click(Sender: TObject);
    procedure dcggClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure dcgg1Click(Sender: TObject);
    procedure RadioButton1DblClick(Sender: TObject);
    procedure RadioButton2DblClick(Sender: TObject);
    procedure RadioButton3DblClick(Sender: TObject);
    procedure RadioButton4DblClick(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure dclxClick(Sender: TObject);
    procedure dcgg2Click(Sender: TObject);
    procedure dcgg3Click(Sender: TObject);
    procedure dcgg4Click(Sender: TObject);
    procedure dcgg5Click(Sender: TObject);
    procedure dcgg6Click(Sender: TObject);
    procedure dcgg7Click(Sender: TObject);
    procedure dcgg8Click(Sender: TObject);
    procedure dcgg9Click(Sender: TObject);
    procedure dcgg10Click(Sender: TObject);
    procedure dclx2Click(Sender: TObject);
    procedure dclx3Click(Sender: TObject);
    procedure dclx4Click(Sender: TObject);
    procedure dclx5Click(Sender: TObject);
    procedure dclx6Click(Sender: TObject);
    procedure dclx7Click(Sender: TObject);
    procedure dclx8Click(Sender: TObject);
    procedure dclx9Click(Sender: TObject);
    procedure dclx10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pi,zd,ybz,hbz,jb:integer;
  tm,dcs,zdcs,i:integer;
  ls:real;
  dc11,dc22,dc33,dc44,da:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if 2*pi<(memo1.Lines.Count-2) then
pi:=pi+1;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if 2*pi>0 then
pi:=pi-1;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

timer1.Interval:=100*spinedit1.Value;
if zd=0 then
begin
timer1.Enabled:=true;
zd:=1;
Button3.Caption:='手 动';
end
else
begin
timer1.Enabled:=false;
zd:=0;
Button3.Caption:='自 动';
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Button1Click(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
zd:=0;
ybz:=0;
hbz:=0;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if hbz=0 then
begin
Button5.Caption:='显示汉字';
label2.Visible:=false;
hbz:=1;
end
else
begin
Button5.Caption:='隐藏汉字';
label2.Visible:=true;
hbz:=0;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if ybz=0 then
begin
Button4.Caption:='显示英文';
label1.Visible:=false;
ybz:=1;
end
else
begin
Button4.Caption:='隐藏英文';
label1.Visible:=true;
ybz:=0;
end;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
if (SpinEdit2.Value>0) and (SpinEdit2.Value<1000)then
pi:=SpinEdit2.Value;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
end;

procedure TForm1.dclx1Click(Sender: TObject);
begin
memo1.Lines.Text:=dc1.Lines.Text;
jb:=1;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dcggClick(Sender: TObject);
begin
label1.Visible:=false;
label2.Visible:=false;
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
Button5.Visible:=false;
SpinEdit1.Visible:=false;
SpinEdit2.Visible:=false;

end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if dcs<memo1.Lines.Count/2 then
begin
randomize();
i:=2*(dcs+random(10)+1);
dc11:=memo1.lines.strings[i];
RadioButton1.Caption :=memo1.lines.strings[i+1];
repeat
i:=2*dcs+random(10)*2;
dc22:=memo1.lines.strings[i];
RadioButton2.Caption :=memo1.lines.strings[i+1];
until RadioButton2.Caption<>RadioButton1.Caption;
repeat
i:=2*dcs+random(10)*2;
dc33:=memo1.lines.strings[i];
RadioButton3.Caption :=memo1.lines.strings[i+1];
until (RadioButton3.Caption<>RadioButton1.Caption) and (RadioButton3.Caption<>RadioButton2.Caption);
repeat
i:=2*dcs+random(10)*2;
dc44:=memo1.lines.strings[i];
RadioButton4.Caption :=memo1.lines.strings[i+1];
until (RadioButton4.Caption<>RadioButton1.Caption) and (RadioButton4.Caption<>RadioButton2.Caption) and (RadioButton4.Caption<>RadioButton3.Caption);
tm:=1+random(4);
case  tm of
1:
begin
label3.Caption:=dc11;
da:=RadioButton1.Caption;
end;
2:
begin
label3.Caption:=dc22;
da:=RadioButton2.Caption;
end;
3:
begin
label3.Caption:=dc33;
da:=RadioButton3.Caption;
end;
4:
begin
label3.Caption:=dc44;
da:=RadioButton4.Caption;
end;
else

end;
end
else
end;

procedure TForm1.dcgg1Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=1;
memo1.Lines.Text:=dc1.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.RadioButton1DblClick(Sender: TObject);
begin
if RadioButton1.Caption=da then
  begin
  dcs:=dcs+10;
  label4.Caption :='ok';
  end
  else
  begin
  dcs:=dcs-40;
  label4.Caption :='sorry';
  end;
  if dcs<0 then
  dcs:=0;
  Button6Click(Sender);
  label5.Caption :='您掌握了'+inttostr(jb)+'级的'+inttostr(dcs)+'个单词';
  if dcs>=500 then
  begin
  showmessage('祝贺您通过了'+inttostr(jb)+'级的单词测试！');
  Form1.dcggClick(Sender);
  label5.Caption :='';
  dcs:=0;
  end;
end;

procedure TForm1.RadioButton2DblClick(Sender: TObject);
begin
if RadioButton2.Caption=da then
  begin
  dcs:=dcs+10;
  label4.Caption :='ok';
  end
  else
  begin
  dcs:=dcs-40;
  label4.Caption :='sorry';
  end;
  if dcs<0 then
  dcs:=0;
  Button6Click(Sender);
  label5.Caption :='您掌握了'+inttostr(jb)+'级的'+inttostr(dcs)+'个单词';
    if dcs>=500 then
  begin
  showmessage('祝贺您通过了'+inttostr(jb)+'级的单词测试！');
  Form1.dcggClick(Sender);
  label5.Caption :='';
  dcs:=0;
  end;
  end;

procedure TForm1.RadioButton3DblClick(Sender: TObject);
begin
if RadioButton3.Caption=da then
  begin
  dcs:=dcs+10;
  label4.Caption :='ok';
  end
  else
  begin
  dcs:=dcs-40;
  label4.Caption :='sorry';
  end;
    if dcs<0 then
  dcs:=0;
  Button6Click(Sender);
  label5.Caption :='您掌握了'+inttostr(jb)+'级的'+inttostr(dcs)+'个单词';
    if dcs>=500 then
  begin
  showmessage('祝贺您通过了'+inttostr(jb)+'级的单词测试！');
  Form1.dcggClick(Sender);
  label5.Caption :='';
  dcs:=0;
  end;
  end;

procedure TForm1.RadioButton4DblClick(Sender: TObject);
begin
if RadioButton4.Caption=da then
  begin
  dcs:=dcs+10;
  label4.Caption :='ok';
  end
  else
  begin
  dcs:=dcs-40;
  label4.Caption :='sorry';
  end;
  if dcs<0 then
  dcs:=0;
  Button6Click(Sender);
  label5.Caption :='您掌握了'+inttostr(jb)+'级的'+inttostr(dcs)+'个单词';
    if dcs>=500 then
  begin
  showmessage('祝贺您通过了'+inttostr(jb)+'级的单词测试！');
  Form1.dcggClick(Sender);
  dcs:=0;
  label5.Caption :='';
  end;
  end;

procedure TForm1.Button7Click(Sender: TObject);
begin
label1.Visible:=true;
label2.Visible:=true;
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;
Button1.Visible:=true;
Button2.Visible:=true;
Button3.Visible:=true;
Button4.Visible:=true;
Button5.Visible:=true;
Button6.Visible:=false;
SpinEdit1.Visible:=true;
SpinEdit2.Visible:=true;
RadioGroup1.Visible:=false;
RadioButton1.Visible:=false;
RadioButton2.Visible:=false;
RadioButton3.Visible:=false;
RadioButton4.Visible:=false;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
label1.Visible:=false;
label2.Visible:=false;
label3.Visible:=true;
label4.Visible:=true;
label5.Visible:=true;
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
Button5.Visible:=false;
//Button6.Visible:=true;
SpinEdit1.Visible:=false;
SpinEdit2.Visible:=false;
RadioGroup1.Visible:=true;
RadioButton1.Visible:=true;
RadioButton2.Visible:=true;
RadioButton3.Visible:=true;
RadioButton4.Visible:=true;
end;

procedure TForm1.dclxClick(Sender: TObject);
begin
label3.Visible:=false;
label4.Visible:=false;
label5.Visible:=false;
Button6.Visible:=false;
RadioGroup1.Visible:=false;
RadioButton1.Visible:=false;
RadioButton2.Visible:=false;
RadioButton3.Visible:=false;
RadioButton4.Visible:=false;
end;

procedure TForm1.dcgg2Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=2;
memo1.Lines.Text:=dc2.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg3Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=3;
memo1.Lines.Text:=dc3.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg4Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=4;
memo1.Lines.Text:=dc4.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg5Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=5;
memo1.Lines.Text:=dc5.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg6Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=6;
memo1.Lines.Text:=dc6.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg7Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=7;
memo1.Lines.Text:=dc7.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg8Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=8;
memo1.Lines.Text:=dc8.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg9Click(Sender: TObject);
begin
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=9;
memo1.Lines.Text:=dc9.Lines.Text;
Button6Click(Sender);
end;

procedure TForm1.dcgg10Click(Sender: TObject);
begin
memo1.Lines.Text:=dc10.Lines.Text;
Form1.Button8Click(Sender);
i:=0;
dcs:=0;
da:='';
jb:=10;
Button6Click(Sender);
end;

procedure TForm1.dclx2Click(Sender: TObject);
begin
memo1.Lines.Text:=dc2.Lines.Text;
jb:=2;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx3Click(Sender: TObject);
begin
memo1.Lines.Text:=dc3.Lines.Text;
jb:=3;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx4Click(Sender: TObject);
begin
memo1.Lines.Text:=dc4.Lines.Text;
jb:=4;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx5Click(Sender: TObject);
begin
memo1.Lines.Text:=dc5.Lines.Text;
jb:=5;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx6Click(Sender: TObject);
begin
memo1.Lines.Text:=dc6.Lines.Text;
jb:=6;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx7Click(Sender: TObject);
begin
memo1.Lines.Text:=dc7.Lines.Text;
jb:=7;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx8Click(Sender: TObject);
begin
memo1.Lines.Text:=dc8.Lines.Text;
jb:=8;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx9Click(Sender: TObject);
begin
memo1.Lines.Text:=dc9.Lines.Text;
jb:=9;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

procedure TForm1.dclx10Click(Sender: TObject);
begin
memo1.Lines.Text:=dc10.Lines.Text;
jb:=10;
pi:=0;
label1.Caption:=memo1.Lines.Strings[2*pi];
label2.Caption:=memo1.Lines.Strings[2*pi+1];
Form1.Button7Click(Sender);
end;

end.