unit2.pas

一个时钟,适合初学者学习使用,有什么意见联系我

{          电脑闹钟3.0－风之铃
          版权所有（C）         2003.3            <风之铃>
    这一程序是自由软件，你可以遵照自由软件基金会出版的GNU通用公共许可
证条款来修改和重新发布这一程序。或者用许可证的第二版，或者（根据你的选
择）用任何更新的版本。
    发布这一程序的目的是希望它有用，但没有任何担保。甚至没有适合特定目
的的隐含的担保。更详细的情况请参阅GNU通用公共许可证。
    你应该已经和程序一起收到一份GNU通用公共许可证的副本。如果还没有，
写信给：
    The Free Software Foundation, Inc.,  675  Mass Ave,  Cambridge,
    MA02139,  USA

    风之铃：tel：[phone] or 13610412046
}
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn3: TBitBtn;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    BitBtn4: TBitBtn;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;
{$R *.dfm}


//检测第一个时间点的输入
procedure TForm2.Edit4Change(Sender: TObject);
begin
if (strtoint(edit4.Text)<0) or (strtoint(edit4.Text)>=24)  then
begin
application.MessageBox('请输入0和24之间的数值','提示',0);
edit4.SetFocus ;
end;
end;

procedure TForm2.Edit5Change(Sender: TObject);
begin
if (strtoint(edit5.Text)<0) or (strtoint(edit5.Text)>=60)  then
begin
application.MessageBox('请输入0和24之间的数值','提示',0);
edit5.SetFocus ;
end;
end;

procedure TForm2.Edit6Change(Sender: TObject);
begin
if (strtoint(edit6.Text)<0) or (strtoint(edit6.Text)>=60)  then
begin
application.MessageBox('请输入0和24之间的数值','提示',0);
edit6.SetFocus ;
end;
end;

//写入ini文件
procedure TForm2.BitBtn1Click(Sender: TObject);
var
mytime:textfile;
tempstr:string;
setfortemptime:Tdatetime;
begin
if (edit4.Text ='')or(edit5.Text ='')or(edit6.Text ='') then
begin
application.MessageBox('第一个时间点你必须要输入','提示',0);
end
else begin
tempstr:=edit4.text+':'+edit5.text+':'+edit6.text;
setfortemptime:=strtodatetime(tempstr);
tempstr:=formatdatetime('hh:nn:ss',setfortemptime);
myinifile.WriteString('程序参数','settime1',tempstr);
settime[1]:=tempstr;

if (edit1.Text ='')or(edit2.Text ='')or(edit3.Text ='') then
tempstr:=''
else begin
tempstr:=edit1.text+':'+edit2.text+':'+edit3.text;
setfortemptime:=strtodatetime(tempstr);
tempstr:=formatdatetime('hh:nn:ss',setfortemptime);
end;
myinifile.WriteString('程序参数','settime2',tempstr);
settime[2]:=tempstr;

if (edit7.Text ='')or(edit8.Text ='')or(edit9.Text ='') then
tempstr:=''
else begin
tempstr:=edit7.text+':'+edit8.text+':'+edit9.text;
setfortemptime:=strtodatetime(tempstr);
tempstr:=formatdatetime('hh:nn:ss',setfortemptime);
end;
myinifile.WriteString('程序参数','settime3',tempstr);
settime[3]:=tempstr;

form2.Close ;
end;
end;


//设定声音文件
procedure TForm2.BitBtn2Click(Sender: TObject);
var
wav:string;
begin
 if opendialog1.Execute then
        begin
        wav:=pchar(opendialog1.FileName );
        myinifile.WriteString('程序参数','wav1',wav);
        voice[1]:=wav;
        end;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
var
wav:string;
begin
 if opendialog1.Execute then
        begin
        wav:=pchar(opendialog1.FileName );
        myinifile.WriteString('程序参数','wav2',wav);
        voice[2]:=wav;
        end;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
var
wav:string;
begin
 if opendialog1.Execute then
        begin
        wav:=pchar(opendialog1.FileName );
        myinifile.WriteString('程序参数','wav3',wav);
        voice[3]:=wav;
        end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
tempstr:string;
begin
//初始化各个时间点
tempstr:=myinifile.ReadString('程序参数','settime1','00:00:00');
if tempstr<>'' then
begin
        edit4.Text :=tempstr[1]+tempstr[2];
        edit5.Text :=tempstr[4]+tempstr[5];
        edit6.Text :=tempstr[7]+tempstr[8];
        end;
tempstr:=myinifile.ReadString('程序参数','settime2','00:00:00');
if tempstr<>'' then
begin
        edit1.Text :=tempstr[1]+tempstr[2];
        edit2.Text :=tempstr[4]+tempstr[5];
        edit3.Text :=tempstr[7]+tempstr[8];
        end;
tempstr:=myinifile.ReadString('程序参数','settime3','00:00:00');
if tempstr<>'' then
begin
        edit7.Text :=tempstr[1]+tempstr[2];
        edit8.Text :=tempstr[4]+tempstr[5];
        edit9.Text :=tempstr[7]+tempstr[8];
        end;
end;

end.