Delphi使用ini配置文件连接MS SQL数据库

很早做过的一个delphi项目，把里面用到的技术总结一下，主要是针对象我这样的delphi新手，技术上做个积累吧！
假设我们的数据库配置文件ServerInfo.ini内容如下：
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
我们定义一个连接数据库的过程DBConnect内容应如下
procedure TDM.DBConnect();
var
  ini:TiniFile;
  Server,User,Pass,DBName:string;
  begin
      ini := TiniFile.Create(ExtractFilePath(Application.ExeName)+'dbconn.ini');  //初始化ini文件
      Server := ini.ReadString('serverinfo','ServerIP','');  //数据库ip地址
      DBName := ini.ReadString('serverinfo','SQLDBName','');   //数据库名
      User := ini.ReadString('serverinfo','SQLUserID','');  //数据库用户名 
      Pass := ini.ReadString('serverinfo','SQLPwd','');  //数据库密码
    try
      DM.ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;'
      +'User ID='+trim(User)
      +';Password='+trim(Pass)
      +';Initial Catalog='+trim(DB)
      +';Data Source='+trim(Server);
      DM.ADOConn.Open ;
    except
      application.MessageBox('数据库连接失败，请检查INI配置文件','提示',64);
      application.Terminate ;
    end;
end;
相信大家都能看懂，注意使用TiniFile类的函数或过程应引入INIFiles单元。