安卓读写INI文件 安卓读写INI文件 安卓读写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;

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