iniunit.~pas

DELPHI读写ini配置文件

unit IniUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, StdCtrls, ExtCtrls;//新加inifiles

type
  TIniForm = class(TForm)
    SectionComboBox: TComboBox;
    IdentComboBox: TComboBox;
    IdentValueEdit: TEdit;
    CmdChange: TButton;
    CmdSave: TButton;
    Panel1: TPanel;
    shi: TGroupBox;
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure SectionComboBoxChange(Sender: TObject);
    procedure IdentComboBoxChange(Sender: TObject);
    procedure CmdChangeClick(Sender: TObject);
    procedure CmdSaveClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  IniForm: TIniForm;
  IniFile:TiniFile;//这个类型中已有的函数较少，在inifiles还定义了几个其它的类，功能较丰富
  Inifile2:TiniFILE;
implementation

{$R *.dfm}

procedure TIniForm.FormCreate(Sender: TObject);
begin
    IniFile:=TiniFile.Create('F:\DELPHI学习\小试牛刀\ini文件读写\rdfnt.ini');
    SectionComboBox.Clear ;
    IniFile.ReadSections(SectioncomboBox.Items );
    SectionComboBox.ItemIndex:=0;
    SectionComboBoxChange(sender);
    CmdSave.Enabled :=False;
    //********************
    IniFile2:=TiniFile.Create('F:\DELPHI学习\小试牛刀\ini文件读写\xuhao.ini');
    ComboBox1.Clear ;
    IniFile2.ReadSection('序号',ComboBox1.Items); //这里只能读a=1;这类的格式的，没有等号的读不出来，
    ComboBox1.ItemIndex :=0;
end;

procedure TIniForm.SectionComboBoxChange(Sender: TObject);
begin
     IdentComboBox.Clear ;
     IniFile.ReadSection(SectionComboBox.Text ,IdentComboBox.Items );
     IdentComboBox.ItemIndex :=0;
     IdentComboBoxChange(Sender);
end;

procedure TIniForm.IdentComboBoxChange(Sender: TObject);
begin
     IdentValueEdit.Enabled :=False;
     IdentValueEdit.Text :=Inifile.ReadString(SectionComboBox.Text ,IdentComboBox.Text ,'');

end;

procedure TIniForm.CmdChangeClick(Sender: TObject);
begin
    CmdSave.Enabled :=true;
    IdentValueEdit.Enabled :=true;
    IdentValueEdit.SetFocus ;
    IdentValueEdit.SelectAll ;
end;

procedure TIniForm.CmdSaveClick(Sender: TObject);
begin
    if IdentValueEdit.Modified then
       begin
          IniFile.WriteString(SectionComboBox.Text ,IdentComboBox.Text ,IdentValueEdit.Text );
       end;
    IdentValueEdit.Enabled :=false;
    CmdSave.Enabled :=false;
end;

procedure TIniForm.FormDestroy(Sender: TObject);
begin
     IniFile.Free ;
end;
//****************************************
procedure TIniForm.Button1Click(Sender: TObject);
begin
    edit1.Text :=inifile.ReadString('True Type fonts list','ARIAL.TTF','');
end;

end.