unit3.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 Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses Unit1;
{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
var
tempstr:string;
setfortemptime:Tdatetime;
begin
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('程序参数','autoshut',tempstr);
autoshut:=tempstr;


form3.Close ;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
tempstr:string;
begin
tempstr:=myinifile.ReadString('程序参数','autoshut','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;
end;

end.