unit1.pas

Delphi7编程80例(完全版)

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.