读ini的问题？

Question

procedure Tflash.FormCreate(Sender: TObject);
var
  inifile:TIniFile;
  ip_string:string;
begin
  try
      inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
      inifile.WriteString('SQLSERVER', '[ip]', '192.168.1.21');
      ip_string:=inifile.ReadString('SQLSERVER','IP',ip_string);
      showmessage(ip_string);
    finally
      inifile.free;
//  GetPrivateProfileString('SQLSERVER','ip','192.168.0.1',ip_string,100,'D:\软件工程\物流管理之采购部\server.ini');
   end;
end;
这个是我写的，可是读不出其中的值来？
server.ini中是这样的：
SERVER
IP=192.168.1.21

Answer 1

ip_string:=inifile.ReadString('SQLSERVER','IP',ip_string);改为：
inifile.WriteString('SQLSERVER', 'IP', '192.168.1.21');ip_string:=inifile.ReadString('SQLSERVER','IP','');

Answer 2

只有这样。我才随时可以改变sql服务器的地址。

Answer 3

      inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
    try  
      inifile.WriteString('SQLSERVER', 'ip', '192.168.1.21');
      inifile.ReadString('SQLSERVER','IP',ip_string);
      showmessage(ip_string);
    finally
      inifile.free;按这样就可以了

Answer 4

错了，改为：）
ip_string：=inifile.ReadString('SQLSERVER','IP','192.168.1.1');

Answer 5

贴好：    
    inifile:=TInifile.Create(ExtractFilePath(Application.ExeName)+'server.ini');
    try  
      inifile.WriteString('SQLSERVER', 'ip', '192.168.1.21');
      ip_string:=inifile.ReadString('SQLSERVER','IP','192.168.0.1');
      showmessage(ip_string);
    finally
      inifile.free;