作者在 2010-01-25 17:55:28 发布以下内容
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.
