unitfrmmain.pas

来自「运用Delphi实现ini文件的读写,没什么好说的,很基本的一个东东,其他地方也」· PAS 代码 · 共 93 行

unit unitFrmMain;

interface

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



type
  TForm1 = class(TForm)
    cobSection: TComboBox;
    cobIni: TComboBox;
    Edit1: TEdit;
    btnChange: TButton;
    Label1: TLabel;
    Label2: TLabel;
    btnSave: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cobSectionChange(Sender: TObject);
    procedure cobIniChange(Sender: TObject);
    procedure btnChangeClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  IniFile: TIniFile;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
// 使用TIniFile类的Create成员函数建立TIniFile对
//象，该对象用来读写当前目录中的sample.ini文件，
  IniFile := TIniFile.Create('..\05\sample.ini');
//读取节点
  cobSection.Clear;
  IniFile.ReadSections(cobSection.Items);
  cobSection.ItemIndex := 0;
  cobSectionChange(sender);
  btnSave.Enabled := false;

end;

procedure TForm1.cobSectionChange(Sender: TObject);
begin
  cobIni.Clear;
// 将cobSection中所选择节中对应的各个
//变量及对应的值送入cobIni
  IniFile.ReadSection(cobSection.Text, cobIni.Items);
  cobIni.ItemIndex := 0;
  cobIniChange(Sender);
end;

procedure TForm1.cobIniChange(Sender: TObject);
begin
  btnSave.Enabled := false;
//将选择的关键字值读入
  Edit1.Text := IniFile.ReadString(cobSection.Text, cobIni.Text, '');

end;

procedure TForm1.btnChangeClick(Sender: TObject);
begin
  btnSave.Enabled := true;
  Edit1.Enabled := true;
  Edit1.SetFocus;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  if Edit1.Modified then
    IniFile.WriteString(cobSection.Text, cobIni.Text, Edit1.Text);
  Edit1.Enabled := false;
  btnSave.Enabled := false;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(IniFile);
end;

end.