读取INI文件问题

Question

INI文件
[dbconfig]databasename=gg
username=sa
pwd=
dbservername=192.168.1.200
程序
var
   //   hr:thandle;
   inifile:Tinifile;
   databasename: String;
   username:String;
   pwd:String;
   dbservername:String;
   connStr:String;
begin if cbocx.items.count>0   then
 begin
   cbocx.itemindex   :=0
   end;   //------------------------------------------------
//-----读取数据库连接配置文件---------------------
   if fileexists('.\DBConfig.ini') then
begin
   inifile := Tinifile.Create('.\DBConfig.ini');
   try
begin
   databasename := inifile.ReadString('dbconfig','databasename','');
   username := inifile.ReadString('dbconfig','username','');
   pwd := inifile.ReadString('dbconfig','pwd','');
   dbservername := inifile.ReadString('dbconfig','dbservername','');
   connStr := 'Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=False;User ID='+
             username+';Initial Catalog='+databasename+';Use Procedure for Prepare=1;'+
             'Auto Translate=True;Packet Size=4096;Workstation ID='+dbservername+
             ';Use Encryption for Data=False;Tag with column collation when possible=False';             end;
   Except
   showmessage('数据库没有连接');
end;
end
   else
begin
   application.MessageBox('没有数据库配置文件','查找错误',0);
   exit;
end;
dbservername=192.168.1.200  这一句在INI文件里不起作用连接不了远程服务器  不知道错在哪了请高手们指教

Answer 1

代碼很亂，看著很刺眼，要養成良好的編程習慣啊
if fileexists('.\DBConfig.ini') then 
begin 
  inifile := Tinifile.Create('.\DBConfig.ini'); 
  try  
    databasename := inifile.ReadString('dbconfig','databasename',''); 
    username := inifile.ReadString('dbconfig','username',''); 
    pwd := inifile.ReadString('dbconfig','pwd',''); 
    dbservername := inifile.ReadString('dbconfig','dbservername',''); 
    connStr := 'Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=False;User ID='+ 
            username+';Initial Catalog='+databasename+';Use Procedure for Prepare=1;'+ 
            'Auto Translate=True;Packet Size=4096;Workstation ID='+dbservername+ 
            ';Use Encryption for Data=False;Tag with column collation when possible=False'; 
  Except 
    showmessage('数据库没有连接'); 
end 
else 
begin 
  application.MessageBox('没有数据库配置文件','查找错误',0); 
  exit; 
end; 

Answer 2

Workstation ID='+dbservername+'
换成Data Source='+dbservername+'就行了 犯了小错误