delphi读取.ini配置文件

因工作需要最近开始学习delphi，可能是因为现在不热门，网上搜好多问题和资料都不对症或者搜不到，整理记录一下自己遇到的一些问题。

在.ini文件中写数据库链接字符串和一些字段，这样一些基本数据修改起来比较方便，下面来说一下delphi中读取.ini文件的过程。

首先在uses中声明inifiles, DB, DBAccess, Ora等几个引用单元，下面是本人项目中的相关代码：

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, DB, DBAccess, Ora;

中间一些代码省略，下面这个procedure是具体的读取方式：

procedure Tdm_db.DataModuleCreate(Sender: TObject);
var
  s_inifile : Tinifile;//声明文件
  s_path,v_connstr : string;
begin
  s_path := extractfilepath(application.exename);//本项目目录下
  s_inifile := Tinifile.Create(s_path+'SysSet.ini');//我的配置文件名称是SysSet.ini
  try
     v_connstr := s_inifile.ReadString('SYS','CONN','');//文件中的数据库链接字符串
     max_length := s_inifile.ReadInteger('SYS','MAX_LENTH',0);//文件中的一个字段，从数据库中读取数据的最大条数
  finally
     s_inifile.free;
  end;
      Orasession1.ConnectString:=v_connstr;
      try
        orasession1.Open;
        showmessage('数据库连接成功！');
        m_querythread := TQueryData.Create(false);

      except
        showmessage('数据库连接错误,请重新设置参数！');
        application.Terminate;
      end;
end;

下面是.ini文件中相关字段：

欢迎各位程序yuan批评指正~