一、在程序的exe下创建test.ini文件,文件内容如图所示:code
二、新建一个按钮,并写入如下代码:orm
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,IniFiles,StdCtrls; //首先要引用头文件:IniFiles; //-------------------------------------------------- //如下东西无改动。 type TForm1 = class(TForm) btn_ReadIni: TButton; procedure btn_ReadIniClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //以上东西无改动 //-------------------------------------------------- procedure TForm1.btn_ReadIniClick(Sender: TObject); var ZkyFileIni:TIniFile;//定义一个ini文件 ZkyIntIni:Integer; //用来存放ini上ZkyInt的值 ZkyStrIni:string;//用来存放ini上ZkyStr的值 ZkyIniAdd:string;//用来存放ini文件地址 begin ZkyIniAdd:=GetCurrentDir+'\test.ini';//存放ini的地址到ZkyIniAdd上 //-------------------------------------------------- //<文件变量名>:=TIniFile.Create(<ini文件实际地址>); //将ZkyFileIni与要操做的ini文件建立关联性。 //在不使用该文件后,须要使用语句将其关联性进行释放。 //释放语句格式为: //<文件变量名>.Free(); //-------------------------------------------------- ZkyFileIni:=TIniFile.Create(PChar(ZkyIniAdd)); //-------------------------------------------------- //<变量名>:=<文件变量名>.ReadInteger('<ini文件中的结点名称>','<ini文件中的左值>',<默认值>) //将ini文件中某个结点下的某个整型变量赋值给咱们的变量。 //若是该变量没有值,则将默认值赋值给咱们的变量。 //-------------------------------------------------- ZkyIntIni:= ZkyFileIni.ReadInteger('ZkyJD_1','ZkyInt',0); //将ini文件下,ZkyJD这个结点下的ZkyInt的右值赋给ZkyIntIni,若是ZkyInt没有值,则默认将0赋值给ZkyIntIni ZkyStrIni:=ZkyFileIni.ReadString('ZkyJDg_2','ZkyStr','ZkyStr-1'); ShowMessage(IntToStr(ZkyIntIni)); ShowMessage(PChar(ZkyStrIni)); //-------------------------------------------------- //<文件变量名>.WriteInteger('结点名称','左值',右值); //<文件变量名>.WriteString('结点名称','左值','右值'); //若是要写进去的节点名称或左值都没有和ini文件中匹配的话,则建立一个新的结点或左值。 //-------------------------------------------------- ZkyFileIni.WriteInteger('ZkyJD_1','ZkyInt',999); ZkyFileIni.WriteString('ZkyJD_2','Zkykong','123'); ZkyFileIni.free(); end; end.
三、结果:blog
1)首先会弹出两个框,分别读出2和ZkyStr-1
2)从新打开test.ini文件,内容以下:string