有一种朋友不在生活里,却在生命力;有一种陪伴不在身边,却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗?话不多说下面就和大家分享INI文件的读写吧。
【 tulaoshi.com - 编程语言 】
function readInifile(fileName,section,Ident:string):string;? //读取配置文件
var
? ini:tinifile;
begin
? ini:=tinifile.Create(fileName);
? result:=ini.ReadString(section,ident,'');
? ini.Free;
end;
procedure writeInifile(const fileName,Section, Ident, Value: string); //写inifile
var
? ini:tinifile; aPathName:string;
begin
? try
??? aPathName:= ExtractFileDir(fileName);
??? if not DirectoryExists(aPathName) then
????? ForceDirectories(aPathName);
??? ini:=tinifile.Create(fileName);
??? ini.WriteString(Section, Ident, Value);
??? ini.Free;
? except
? end;
end;
来源:http://www.tulaoshi.com/n/20160219/1602027.html