WriteEdit()ReadEdit() IniFiles

 

uses IniFiles;//引用IniFiles
{$R *.dfm}

{写入信息到ini文件 }
//WriteEdit('Config.ini','Options','Edit',Edit1);
procedure WriteEdit(fileName:string;section:string;Ident:string;Edit:TEdit);
var  INIFILE: TIniFile;
begin
    INIFILE:=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
    try
     INIFILE.WriteString(section,Ident,Edit.Text);
    Finally
     INIFILE.Free; 
    end;  
end;  

---

{从Ini读取信息并赋值}
//ReadEdit('Config.ini','Options','Edit',Edit1);
procedure ReadEdit(fileName:string;section:string;Ident:string;Edit:TEdit);
var
 INIFILE: TIniFile;
begin
  INIFILE :=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
    try
         Edit.text:= INIFILE.ReadString(section,Ident,'');
    Finally 
      INIFILE.Free; 
    end;  
end;

通过 为知笔记 发布