本文共 1569 字，大约阅读时间需要 5 分钟。

RAD Studio 10.3 测试√

记得声明：

usesIniFiles;varMyIniFile : 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;

窗体：

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