unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Mask,IniFiles,Clipbrd, Menus ;
type
TMainForm = class(TForm)
Panel1: TPanel;
Button1: TButton;
RichEdit1: TRichEdit;
Edit1: TEdit;
Timer1: TTimer;
Panel2: TPanel;
srzs: TLabel;
szdf: TLabel;
jczs: TLabel;
cwzs: TLabel;
SetTime: TLabel;
UsedTime: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label10: TLabel;
RichEdit2: TRichEdit;
Splitter1: TSplitter;
Label6: TLabel;
Label8: TLabel;
Label9: TLabel;
MaskEdit2: TMaskEdit;
UpDown2: TUpDown;
MaskEdit1: TMaskEdit;
UpDown1: TUpDown;
Label12: TLabel;
Label11: TLabel;
CheckBox1: TCheckBox;
MaskEdit3: TMaskEdit;
UpDown3: TUpDown;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
H1: TMenuItem;
N6: TMenuItem;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure RichEdit2Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure MaskEdit1Change(Sender: TObject);
procedure UpDown2Changing(Sender: TObject; var AllowChange: Boolean);
procedure FormShow(Sender: TObject);
procedure RichEdit1KeyPress(Sender: TObject; var Key: Char);
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses
About;
var
Y,N,iTime:Integer;
{$R *.DFM}
procedure TMainForm.Button1Click(Sender: TObject);
var
S:string;
begin
if Edit1.Text ='' then begin
showMessage('请输入,以便记录分数');
Edit1.SetFocus;
Abort;
end;
Caption:=Caption+'--'+Edit1.Text+'--正在考试...' ;
if CheckBox1.Checked=True then begin
S := timeToStr(now);
S := copy(S,8,1);
end
else
begin
S:= MaskEdit3.Text;
end;
if s='0' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text0.txt');
if s='1' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text1.txt');
if s='2' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text2.txt');
if s='3' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text3.txt');
if s='4' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text4.txt');
if s='5' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text5.txt');
if s='6' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text6.txt');
if s='7' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text7.txt');
if
s='8' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text8.txt');
if s='9' then RichEdit1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Text\Text9.txt');
RichEdit2.Clear;
RichEdit2.SetFocus;
UpDown1.Enabled:=False; //禁止修改比赛时间
UpDown2.Enabled:=False; //禁止设置字号
Timer1.Enabled:=True; //打开计时器
RichEdit2.ReadOnly:=False; //允许输入字
iTime:=StrToInt(MaskEdit1.Text)*60; //显示比赛时间
Button1.Enabled:=False;
N2.Enabled:=False;
end;
procedure TMainForm.RichEdit2Change(Sender: TObject);
var
I:Integer;
begin
Y:=0;
N:=0;
srzs.Caption:=