操作INI文件！！！！！

Question

在DELPHI中怎么样启动数据库，就是需要往INI文件中读那参数，格式怎么写？

Answer 1

procedure readini();
var
  config:tinifile;
begin
  renamefile(gsyspath+'\work.sys',gsyspath+'\work.ini');
  config:=tinifile.Create(gsyspath+'\work.ini');
  gserverid:=config.ReadString('database','gserverid','') ;
  gusername:=config.ReadString('database','username','') ;
  gpwd:='summwork';
  gdengluname:=config.ReadString('database','dengluname','') ;
  gdengludate:=config.ReadString('database','dengludate','');
  gpicture:=config.ReadString('database','picture','');
  config.Free;
  renamefile(gsyspath+'\work.ini',gsyspath+'\work.sys');
end;procedure TDm.DataModuleCreate(Sender: TObject);
begin
  gsyspath:=extractfiledir(paramstr(0));
  if not fileexists(gsyspath+'\work.sys') then
  begin
    gsyserror:=true;
    abort;
  end
  else
   readini();
   adoconnection1.Connected:=false;
   adoconnection1.ConnectionString:='';
   adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+Gpwd
  +';Persist Security Info=True;User ID='+Gusername
  +';Initial Catalog=worksummary;Data Source='+Gserverid;
    try
    adoconnection1.Connected:=true;
  except
    Gdberror:=true;
    //Application.messagebox('连接数据库失败，请检查网络状况！',Gsysname,mb_ok+mb_iconwarning);
   // application.Terminate;
  end;
end;

Answer 2

procedure Tdeal.initialize;
begin
  inherited;   DmObj:= TDM.Create(forms.Application);   Filename:='AdoCon.ini';
   //Filename:=ExtractFilePath(paramstr(0))+'ADOCon.ini';
   AdoIniFile:= Tinifile.Create(Filename);
   DefaultSet:=AdoIniFile.ReadString('DefaultSet','set','nothing');
   constr:=AdoIniFile.ReadString(DefaultSet,'constr','nothing');
   DefaultDatabase:=AdoIniFile.ReadString(DefaultSet,'DefaultDatabase','nothing');
   operator:=AdoInifile.ReadString(DefaultSet,'operator','nothing');
   PW:=AodIniFile.ReadString(DefaultSet,'PW','nothing');
   AdoIniFile.Destroy;   DmObj.ADOCon.ConnectionString:=constr;
   DmObj.ADOCon.Provider:='SQLOLEDB.1';
   DmObj.ADOCon.DefaultDatabase:= DefaultDatabase;
   DmObj.ADOCon.LoginPrompt:=false;
   DmObj.ADOCon.Open;
end;
destructor Tdeal.destroy;
begin
  inherited;
  DmObj.Free;
end;
我这样生成了DLL文件。就是ADOcon.ini文件中要写入什么？我怎么样去测试？
operator=sa;
PW=*******;
databaseName=数据库名称；