1.ini读写操作

一、使用 TIniFile

implementation
var
  ini:tinifile;
  path:string;       {ini文件路径}
  section,key:string;{表示ini文件的小节、关键字}
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   path:=ChangeFileExt(ParamStr(0),'ini'); {ChangeFileExt改文件后缀扩展名
                                              paramstr(0):可执行程序完全路径d:\delphi\project1.exe
                                              或ExtractFilePath(ParamStr(0))+'Config.ini')}
   ini:=TiniFile.Create(path);
end;

end.