Delphi Ini配置文件的简单操作

RAD Studio 10.3 测试√

记得声明：

uses
IniFiles;
var
MyIniFile : TIniFile;

写入 / 添加

procedure TForm1.Button1Click(Sender: TObject);      //写入/添加
begin
  //为变量 MyIniFile 与具体的文件 MyIni.ini 建立联系，然后，就可以通过变量 MyIniFile，来读写 MyIni.ini文件中的关键字的值了
  MyIniFile := TIniFile.Create('文件路径\MyIni.ini');      //打开Ini文件   参数为【文件路径】
  MyIniFile.WriteString(Edit1.Text, Edit2.Text, Edit3.Text);                    //字符 类型
  MyIniFile.WriteInteger(Edit4.Text, Edit5.Text, StrToInt(Edit6.Text));         //整数 类型
  MyIniFile.WriteBool(Edit7.Text, Edit8.Text, StrToBool(Edit9.Text));           //布尔 类型
  //在适当的位置用下面的语句释放 MyIniFile
  MyIniFile.Destroy;
  Memo1.Lines.Add('添加成功');
end;

读取指定关键字

procedure TForm1.Button2Click(Sender: TObject);      //读取
begin
  MyIniFile := TIniFile.Create('文件路径\MyIni.ini');
  Memo1.Lines.Add(MyIniFile.ReadString('xjm','name2','NULL'));      //三个参数分别为【小结名  关键字  关键字不存在情况的返回值】
  Memo1.Lines.Add(IntToStr(MyIniFile.ReadInteger('xjm','name3', 999)));
  Memo1.Lines.Add(BoolToStr(MyIniFile.ReadBool('xjm','name4', false)));         //在读取布尔类型的时候返回值分别用-1【true】和0【false】代替
  MyIniFile.Destroy;
end;

删除关键字

procedure TForm1.Button3Click(Sender: TObject);     //删除关键字
begin
  MyIniFile := TIniFile.Create('文件路径\MyIni.ini');
  myinifile.DeleteKey('xjm', 'name');               //两个参数分别为【小结名  关键字】
  MyIniFile.Destroy;
  Memo1.Lines.Add('删除关键字成功');
end;

删除小结

procedure TForm1.Button4Click(Sender: TObject);     //删除小结
begin
  MyIniFile := TIniFile.Create('文件路径\MyIni.ini');
  MyIniFile.EraseSection('xjm2');                   //参数为【小结名】
  MyIniFile.Destroy;
  Memo1.Lines.Add('删除小结成功');
end;

窗体：

---

笔记源码

---

学习中记录的一点点笔记，以便以后翻阅。