delphi Ini读写

时间:2021-12-29 08:12:30

try
ini := TIniFile.Create(GetCurrentDir+‘\BackServiceSetting.ini‘); {ini 东西成立需要文件路径参数, 如果缺少路径会默认Windows目录}
editId.Text:=ini.ReadString(‘饿了么设置‘,‘店铺ID‘,‘‘);
editKey.Text:=ini.ReadString(‘饿了么设置‘,‘Key‘,‘‘);
edt_Secret.Text:=ini.ReadString(‘饿了么设置‘,‘Secret‘,‘‘);
edt_token.Text:=ini.ReadString(‘饿了么设置‘,‘Token‘,‘‘);
except
ini.Free;
end;