1、在程序的exe下建立test.ini文件,文件内容如图所示:
2、新建一个按钮,并写入以下代码:
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.
3、结果:
1)首先会弹出两个框,分别读出2和ZkyStr-1
2)重新打开test.ini文件,内容如下: