安卓读写INI文件

安卓读写INI文件

uses System.IoUtils

procedure TForm1.Button1Click(Sender: TObject);
var
IniFile:TIniFile;
Count:Integer;
begin

try
IniFile:=TIniFile.Create(TPath.GetHomePath+'\test.ini');
Count:=IniFile.ReadInteger('Config','Count',0);
Count:=Count+1;
IniFile.WriteString('sec', 'TEL',' ');
IniFile.WriteInteger('Config','Count',Count);
finally
FreeAndNil(IniFile);
end;
end;

posted @   delphi中间件  阅读(1792)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示