会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前//读写程序根目录下的CONFIG.INI文件 |
uses IniFiles; |
//读取ini |
function Readini(Section, key: string): string; |
var |
temp: Tinifile; |
begin |
temp := Tinifile.create(extractfilepath(application.ExeName) + 'CONFIG.INI'); |
try |
Readini := temp.ReadString(section, key, ''); |
finally |
temp.Free; |
end; |
end; |
//写入ini |
procedure Writeini(Section, key, value: string); |
var |
temp: Tinifile; |
begin |
temp := Tinifile.Create(extractfilepath(application.exename) + 'CONFIG.INI'); |
try |
temp.WriteString(Section, key, value); |
finally |
temp.Free; |
end; |
end; |
