首先
uses 
inifiles

然后写文件

1. procedure THolidaySet.Button2Click(Sender: TObject);
   

2. var
   

3.   IniFile:TIniFile;
   

4.   Count:Integer;
   

5. begin
   

6. 
   

7.   try
   

8.     IniFile:=TIniFile.Create(TPath.GetHomePath+'\HolidayRobot.ini');
   

9.     Count:=IniFile.ReadInteger('Config','Count',0);
   

10.     Count:=Count+1;
    

11. 
    

12.     IniFile.WriteString('Holiday'+IntToStr(Count),'TEL',Edit1.Text);
    

13.     IniFile.WriteString('Holiday'+IntToStr(Count),'NAME',Edit2.Text);
    

14.     IniFile.WriteString('Holiday'+IntToStr(Count),'DATETIME',CalendarEdit1.Text);
    

15.     IniFile.WriteString('Holiday'+IntToStr(Count),'CONTENT',Edit4.Text);
    

16. 
    

17.     IniFile.WriteInteger('Config','Count',Count);
    

18.   finally
    

19.     FreeAndNil(IniFile);
    

20.   end;
    

21. end;

复制代码

读INI文件

1. procedure TForm1.FormShow(Sender: TObject);
   

2. var
   

3.   IniFile:TIniFile;
   

4.   Count:Integer;
   

5.   I:Integer;
   

6. begin
   

7.   try
   

8.     IniFile:=TIniFile.Create(TPath.GetHomePath+'\HolidayRobot.ini');
   

9.     Count:=IniFile.ReadInteger('Config','Count',0);
   

10. 
    

11.     for I := 1 to Count do
    

12.     begin
    

13.       Memo1.Lines.Add(inifile.ReadString('Holiday'+IntToStr(I),'TEL',''));
    

14.     end;
    

15.   finally
    

16.     FreeAndNil(IniFile);
    

17.   end;
    

18. end;
    

19. 
    

复制代码

本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1575948，如需转载请自行联系原作者