大家好，又见面了，我是你们的朋友全栈君。
首先
uses
inifiles
然后写文件
-
procedure THolidaySet.Button2Click(Sender: TObject);
-
var
-
IniFile:TIniFile;
-
Count:Integer;
-
begin
-
try
-
IniFile:=TIniFile.Create(TPath.GetHomePath+’\HolidayRobot.ini’);
-
Count:=IniFile.ReadInteger(‘Config’,’Count’,0);
-
Count:=Count+1;
-
IniFile.WriteString(‘Holiday’+IntToStr(Count),’TEL’,Edit1.Text);
-
IniFile.WriteString(‘Holiday’+IntToStr(Count),’NAME’,Edit2.Text);
-
IniFile.WriteString(‘Holiday’+IntToStr(Count),’DATETIME’,CalendarEdit1.Text);
-
IniFile.WriteString(‘Holiday’+IntToStr(Count),’CONTENT’,Edit4.Text);
-
IniFile.WriteInteger(‘Config’,’Count’,Count);
-
finally
-
FreeAndNil(IniFile);
-
end;
-
end;
复制代码
读INI文件
-
procedure TForm1.FormShow(Sender: TObject);
-
var
-
IniFile:TIniFile;
-
Count:Integer;
-
I:Integer;
-
begin
-
try
-
IniFile:=TIniFile.Create(TPath.GetHomePath+’\HolidayRobot.ini’);
-
Count:=IniFile.ReadInteger(‘Config’,’Count’,0);
-
for I := 1 to Count do
-
begin
-
Memo1.Lines.Add(inifile.ReadString(‘Holiday’+IntToStr(I),’TEL’,”));
-
end;
-
finally
-
FreeAndNil(IniFile);
-
end;
-
end;
复制代码
本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1575948，如需转载请自行联系原作者
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/161313.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
