delphi 安卓读写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;