高分请教高手一个问题！

Question

看来国内DELPHI的应用比较火，只是初学的人太多了。

Answer 1

var ini :TIniFile;ini := TIniFile.Create('file');
ini.WriteInteger(...);
ini.Free;

Answer 2

以下我摘出来的代码,你要的重点在
    MyIniFile.WriteString('My_Setting', 'UseTimes', IntToStr(UseTimes + 1));
    MyIniFile.UpdateFile;
这两句上了。
看看吧 
function TFrmMain.CheckCanUse: Boolean;
var
  Buffer: Pchar;
  DataFile: string;
  MyIniFile: TIniFile;
  Str1, Str2: string;
  UseTimes: Integer;
begin
  try
    GetMem(Buffer, 2048);
    GetWindowsDirectory(Buffer, 2048);
    DataFile := StrPas(Buffer);
    DataFile := DataFile + '\win.ini';
    MyIniFile := TIniFile.Create(DataFile);
    Str1 := MyIniFile.ReadString('My_Setting', 'UserID', '');
    Str2 := MyIniFile.ReadString('My_Setting', 'UserSN', '');    UseTimes := StrToInt(MyIniFile.ReadString('My_Setting', 'UseTimes', '0'));
    MyIniFile.WriteString('My_Setting', 'UseTimes', IntToStr(UseTimes + 1));    MyIniFile.UpdateFile;
  finally
    MyIniFile.Free;
    FreeMem(Buffer);
  end;
end;

Answer 3

  pc : TIniFile;  pc := TIniFile.create('.\SmtpServer.ini');
  s := Trim(EditSMTP.text);
  pc.writestring(s,'SMTPServer',Trim(EditSMTP.text));
  pc.writestring(s,'Pop3Server',Trim(EditPop3.text));
  pc.writestring(s,'Authotization','1');
  pc.writestring(s,'UserName',EditUser.text);
  pc.writestring(s,'Password',EditPass.text);
  pc.Free;

Answer 4

会自动修改已经存在的，否则为新增了一个section