Delphi数据库连接Ini文件操作类IniOptions

//----------------------------------------------------------//
//-------  Delphi对保存数据库连接信息的Ini文件的操作类 ------//
//-------  作用：封装对ini文件的操作                   ------//
//-------  类名称： IniOptions                         ------//
//-------  属性如下：                                  ------//
//-------    FconfigAutoLogon: Boolean (是否自动登录)  ------//
//-------    FconfigAuthenticationStyle: string        ------//
//-------    (表示身份验证方式，WindowsNT/SQLServer)   ------//
//-------    FconfigServerName: string  (服务器名称)   ------//
//-------    FconfigUserID: string      (登录名)       ------//
//-------    FconfigPassword: string    (登录密码)     ------//
//-------    FconfigDataBaseName: string（数据库名）   ------//
//-------  方法如下：                                  ------//
//-------    Function getIniFileAbsolutePath():string; ------//
//-------        1.获取Ini文件的绝对路径               ------//
//-------    Function IniFileExists():Boolean;         ------//
//-------        2.判断Ini文件是否存在                 ------//
//-------    Function createNewIniFile():Boolean;      ------//
//-------        3.创建新的Ini文件（默认配置）         ------//
//-------    procedure LoadSettings(Ini: TIniFile);    ------//
//-------        4.从Ini文件中读取配置信息到属性值中   ------//
//-------    procedure SaveSettings(Ini: TIniFile);    ------//
//-------        5.将属性值保存到Ini文件中             ------//
//-------    procedure LoadFromIniFile();              ------//
//-------        6.从Init文件中读取信息,调用1,2,3,4    ------//
//-------    procedure SaveToIniFile();                ------//
//-------        7.保存到Ini文件，调用1,2,3,5          ------//
//-------    作者： 苏贵阳    2010-8-15                ------//
//-----------------------------------------------------------//
//-------           IniOptions    使用说明             ------//

//-------  1.调用单元   uses IniOptionsUnit;           ------//
//-------  2.IniOptions.LoadFromIniFile();             ------//
//------- CB_FWQMC.Text := IniOptions.configServerName ------//
//----- 3. IniOptions.configDataBaseName:=CB_SJKM.Text; -----//
//-------  IniOptions.SaveToIniFile();                 ------//
//-----------------------------------------------------------//

unit IniOptionsUnit;

interface

uses    //使用到的包
  Classes, SysUtils, IniFiles, Forms, Windows, Messages,Dialogs;

const   //---常量定义

  IniFileRelativePath = 'ADOConnConfInfo.ini';        //---默认的Ini文件名

  //---配置文件中的关键字名称
  csIniconfigSection = 'config';
  {Section: config}
  csIniconfigAutoLogon = 'AutoLogon';
  csIniconfigAuthenticationStyle = 'AuthenticationStyle';
  csIniconfigServerName = 'ServerName';
  csIniconfigUserID = 'UserID';
  csIniconfigPassword = 'Password';
  csIniconfigDataBaseName = 'DataBaseName';

type
  TIniOptions = class(TObject)     //---定义类