1、在程序的exe下建立test.ini文件，文件内容如图所示：

2、新建一个按钮，并写入以下代码：

unit Unit1;interfaceuses  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);varZkyFileIni:TIniFile;//定义一个ini文件ZkyIntIni:Integer; //用来存放ini上ZkyInt的值ZkyStrIni:string;//用来存放ini上ZkyStr的值ZkyIniAdd:string;//用来存放ini文件地址begin  ZkyIniAdd:=GetCurrentDir+'\test.ini';//存放ini的地址到ZkyIniAdd上  //--------------------------------------------------  //
    <文件变量名>
     ：=TIniFile.Create(
     
      );  //将ZkyFileIni与要操作的ini文件创建关联性。  //在不使用该文件后，需要使用语句将其关联性进行释放。  //释放语句格式为：  //
      <文件变量名>
       .Free();  //--------------------------------------------------  ZkyFileIni:=TIniFile.Create(PChar(ZkyIniAdd));  //--------------------------------------------------  //
       <变量名>
        :=
        <文件变量名>
         .ReadInteger('
         
          ','
          
           ',
           <默认值>
            ) //将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