Ini文件的操作

unit frm_IniOp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,INIFiles, StdCtrls, XPMan;

type
  TFrmInfo = class(TForm)
    GbxInfo: TGroupBox;
    LblName: TLabel;
    EdName: TEdit;
    LblBornDate: TLabel;
    EdBornDate: TEdit;
    LblDoWorker: TLabel;
    EdDo: TEdit;
    LblPhone: TLabel;
    EdPhone: TEdit;
    LblHome: TLabel;
    EDHome: TEdit;
    BtnChange: TButton;
    BtnClose: TButton;
    BtnNext: TButton;
    BtnDel: TButton;
    procedure BtnDelClick(Sender: TObject);
    procedure BtnNextClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnChangeClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
  private
    dir:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmInfo: TFrmInfo;
  i:integer;
implementation

{$R *.dfm}

procedure TFrmInfo.FormShow(Sender: TObject); //读取关键字
var
  iniinfo:TIniFile;
begin
  iniInfo:=TInIFile.Create(dir+'/MyInfo.INI');
  try
    EdName.Text:=iniInfo.ReadString('PersionInfo1','Name','');
    EdBornDate.Text:=iniInfo.ReadString('PersionInfo1','BornDate','');
    EdDo.Text:=iniInfo.ReadString('PersionInfo1','Work','');
    EdPhone.Text:=iniInfo.ReadString('PersionInfo1','Phone','');
    EDHome.Text:=iniInfo.ReadString('PersionInfo1','Home','');
  Finally
   freeAndNil(IniInfo);
  end;
end;

procedure TFrmInfo.FormCreate(Sender: TObject); //读取当前目录
begin
  i:=1;
  getdir(0,dir);
end;

procedure TFrmInfo.BtnChangeClick(Sender: TObject); //存储关键字
var
  iniinfo:TIniFile;
begin
  iniInfo:=TInIFile.Create(dir+'/MyInfo.INI');
  if (edName.Text<>'') and (edBornDate.Text<>'') and (edDo.Text<>'') and (EDPhone.Text<>'') and (edHome.Text<>'') then
  begin //当不是空记录时，可以修改，保存。
    try
      iniInfo.WriteString('PersionInfo'+inttostr(i),'Name',EdName.Text);
      iniInfo.WriteString('PersionInfo'+inttostr(i),'BornDate',EdBornDate.Text);
      iniInfo.writeString('PersionInfo'+inttostr(i),'Work',EdDo.Text);
      iniInfo.WriteString('PersionInfo'+inttostr(i),'Phone',EdPhone.Text);
      iniInfo.WriteString('PersionInfo'+inttostr(i),'Home',EDHome.Text);
    Finally
     freeAndNil(IniInfo);
    end;
  end
  else
    showmessage('不能为空。');
end;

procedure TFrmInfo.BtnCloseClick(Sender: TObject); //关闭
begin
  Close;
end;

procedure TFrmInfo.BtnNextClick(Sender: TObject); //下一条记录
var
  iniinfo:TIniFile;
begin
  iniInfo:=TInIFile.Create(dir+'/MyInfo.INI');
  i:=i+1;
  try
    EdName.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Name','');
    EdBornDate.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'BornDate','');
    EdDo.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Work','');
    EdPhone.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Phone','');
    EDHome.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Home','');
  Finally
   freeAndNil(IniInfo);
  end;
end;

procedure TFrmInfo.BtnDelClick(Sender: TObject); //删除记录
var
  iniinfo:TIniFile;
begin
  iniInfo:=TInIFile.Create(dir+'/MyInfo.INI');
  iniinfo.EraseSection('PersionInfo'+inttostr(i));
  i:=i-1;
  try
    EdName.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Name','');
    EdBornDate.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'BornDate','');
    EdDo.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Work','');
    EdPhone.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Phone','');
    EDHome.Text:=iniInfo.ReadString('PersionInfo'+inttostr(i),'Home','');
  Finally
   freeAndNil(IniInfo);
  end;
end;

end.