如何把ADOconnection组件的connectionstring字符串写成ini文件？

Question

请各位大虾指点一下，我想做一个ini文件保存SQL数据库的设置相关的内容，再用的程序去读写它，但对ini流数据不熟悉。假设connectionstring字符串为以下内容“Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=SCIT;Data Source=QI”，请问应该要如何做呢？PS:在delphi7环境下

Answer 1

  
var
  ini:Tinifile;
  connectionstring:string;
begin
  connectionstring:='Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=SCIT;Data Source=QI';
  ini:=Tinifile.create('d:\my.ini');
  ini.writestring('数据库设置','连接字符串',connectionstring);
  connectionstring:=ini.readstring('数据库设置','连接字符串');
  ini.destory;
end;

Answer 2

String connStr="",tempStr="";
    TIniFile *ini;        try
        {
 ADOConn1->Close();
 //  connStr="Provider=SQLOLEDB.1;Password=xzsat;Persist Security Info=True;User ID=sa;Initial Catalog=daw;Data Source=XJQ-SAT";  ini=new TIniFile(".//SAS_Config.ini");
 tempStr=ini->ReadString("dataBase","数据库类型","SQLSERVER");
 ini->WriteString("dataBase","数据库类型",tempStr);
 //连接SQL SERVER
 {
connStr="Provider=SQLOLEDB.1;Persist Security Info=True;";
tempStr=ini->ReadString("dataBase","密码","xzsat");
ini->WriteString("dataBase","密码",tempStr);
connStr+="Password="+tempStr+";" ;
tempStr=ini->ReadString("dataBase","用户名","sa");
connStr+="User ID="+tempStr+";" ;
ini->WriteString("dataBase","用户名",tempStr);
tempStr=ini->ReadString("dataBase","数据库名称","daw");
connStr+="Initial Catalog="+tempStr+";" ;
ini->WriteString("dataBase","数据库名称",tempStr);
tempStr=ini->ReadString("dataBase","服务器名(IP)","XJQ-SAT");
connStr+="Data Source="+tempStr+" " ;
          ini->WriteString("dataBase","服务器名(IP)",tempStr);
 }
          delete ini;  ADOConn1->ConnectionString=connStr;
 ADOConn1->Open();

Answer 3

 with  ADOLink do
    begin
      _percentage:=ReadFloat('Setup','percentage',5);
      _SCXL:=ReadString('Setup','SCXL','105%');
      _MaxXL:=ReadInteger('Setup','MaxXL',110);
      _MinXL:=ReadInteger('Setup','MinXL',90);
      case sys_welcome_f.ShowModal of
        mrOk:begin DataBaseNm:=ReadString('Setup','DataBaseName','');  _ServerNmae:=ReadString('Setup','ServerName',''); end;
        mrYes:begin DataBaseNm:=ReadString('Setup','TestDataBase',''); _ServerNmae:=ReadString('Setup','TestServerName',''); end;
        mrIgnore:
        begin
          IsCancel:=True;
          Application.Run;
          Application.Terminate; 
        end;
      end;
      sys_datamodule.con1.Connected:=False;
      sys_datamodule.con1.ConnectionString:=
        'Provider=SQLOLEDB.1;Password='+ Dec(ReadString('Setup','Password',''))+
        ';Persist Security Info=True;User ID='+ReadString('Setup','UserName','')+
        ';Initial Catalog='+DataBaseNm+
        ';Data Source='+_ServerNmae+';App=MES_'+MainVer;
      //sys_datamodule.con1.ConnectionString:='Provider=SQLNCLI10;Application Name=MES_'+MainVer+';Server='+_ServerNmae+';Database='+DataBaseNm+';Failover Partner='+_ServerNmae+';UID='+ReadString('Setup','UserName','')+';PWD='+Dec(ReadString('Setup','Password',''))+';';
      //NEW//sys_datamodule.con1.ConnectionString:='Provider=SQLOLEDB.1;Application Name=MES_'+MainVer+';Data Source='+_ServerNmae+';Initial Catalog='+DataBaseNm+';User ID='+ReadString('Setup','UserName','')+';Password='+Dec(ReadString('Setup','Password',''))+';' ;
      free;
    end;