u_type.~pas

社区服务系统

unit U_type;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Timer1: TTimer;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Label6: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  type1:integer;
  str:string;
  bomb,nobomb,mark:integer;
  Form1: TForm1;
function randomnum(min:integer;max:integer):integer;
procedure init(var vlabel:Tlabel);
implementation

procedure init(var vlabel:Tlabel);
var
  keystr:string;
  i:integer;
begin
  keystr:='';
  vlabel.Visible:=true;
  vlabel.top:=5;
  vlabel.Left:=randomnum(20,300);
  for i:=1 to 5 do
  begin
    keystr:=keystr+chr(randomnum(65,90));
  end;
  vlabel.Caption:=keystr;
end;
function randomnum(min:integer;max:integer):integer;
begin
  randomize;
  result:=round(min+(max-min)*random);
end;

{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if label1.Top+type1<300 then
    label1.Top:=label1.Top+type1
  else
    begin
    inc(nobomb);
    init(label1);
    mark:=10*bomb-5*nobomb;;
    edit3.Text:=inttostr(nobomb);
    edit4.text:=inttostr(mark);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  bomb:=0;
  nobomb:=0;
  mark:=0;
  Edit2.Text:='0';
  Edit3.Text:='0';
  Edit4.Text:='0';
  type1:=20;
  init(label1);

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  str:=str+key;
    if pos(str,label1.Caption)=1 then
    begin
    if str=label1.Caption then
      begin
      label2.Caption :=str;
      inc(bomb);
      mark:=10*bomb-5*nobomb;
      Edit2.Text:=inttostr(bomb);
      Edit4.Text:=inttostr(mark);
      init(label1);
      str:='';
      exit;
  end;
  end
  else
    str:='';
end;

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

procedure TForm1.Edit4Change(Sender: TObject);
begin
  if edit4.Text='-100' then
  begin
    timer1.Enabled:=false;
    label6.visible:=true;
  end;

end;

end.