{          電腦鬧鐘3.0－風之鈴
          版權所有（C）         2003.3            <風之鈴>
    這一程序是自由軟件，你可以遵照自由軟件基金會出版的GNU通用公共許可
證條款來修改和重新發布這一程序。或者用許可證的第二版，或者（根據你的選
擇）用任何更新的版本。
    發布這一程序的目的是希望它有用，但沒有任何擔保。甚至沒有適合特定目
的的隱含的擔保。更詳細的情況請參閱GNU通用公共許可證。
    你應該已經和程序一起收到一份GNU通用公共許可證的副本。如果還沒有，
寫信給：
    The Free Software Foundation, Inc.,  675  Mass Ave,  Cambridge,
    MA02139,  USA

    風之鈴：tel：0712－83155 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.