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;
|