unit Unit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls,Inifiles;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Timer1: TTimer;
CheckBox1: TCheckBox;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myinifile:TInifile;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// 每格一秒增加1
Edit2.Text := IntToStr(StrToInt(Edit2.Text) + 1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
FileName:string;
begin
// 获取当前程序所在路径
FileName := ‘c:myini.ini‘;
// 创建myinifile对象,并创建或打开myini.ini文件
myinifile := TInifile.Create(FileName);
// 读取值
Edit1.Text := myinifile.ReadString(‘程序参数‘,‘用户名称‘,‘缺省的用户名称‘);
Edit2.Text := IntToStr(myinifile.ReadInteger(‘程序参数‘,‘已运行时间‘,0));
Checkbox1.Checked := myinifile.ReadBool(‘程序参数‘,‘是否正式用户‘,False);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 在程序关闭时写入myini.ini文件
myinifile.WriteString(‘程序参数‘,Edit1.Text);
myinifile.WriteInteger(‘程序参数‘,StrToInt(Edit2.Text));
myinifile.WriteBool(‘程序参数‘,CheckBox1.Checked);
// 释放myinifile对象
myinifile.Destroy;
end;
end.