Delphi中读写INI配置文件操作总结

首先说一下INI文件的格式如下：

[COUNT]          #域名
COUNT=2       #变量名=值
[HXUSER]
HXUSER=ht_invest

[HXPWD]
HXPWD=hundsun

[INFO0]
NAME=ht_invest
PASSWD=hundsun
ORA=168.161.30.6

[INFO1]
NAME=ht_invest
PASSWD=hundsun
ORA=168.161.30.2

[INFO2]
NAME=hs_data
PASSWD=dfds
ORA=hs_data

下面如何读写INI配置文件呢？

首先说一下读配置文件：

//加载INI文件数据
procedure Tfoffertool.LoadINIDataToListView();
var
  temp        :string;
  filepath    :string;
  i, count    :Integer;
  pListInfo   :pInfo;
  item        :TListItem;

  myinifile   : TIniFile;

begin
  try
    filepath  := ExtractFilePath(Paramstr(0)) + 'myini.ini';        //获取当前路径+文件名
    myinifile := Tinifile.Create(filepath);                         //创建文件
  except
    ShowMessage('LOADINI打开配置文件失败');
    Exit;
  end;

  count     := myinifile.ReadInteger('COUNT', 'COUNT', 0);        //读取INI文件中的COUNT值
  lvshow.Clear;

  for i := 0 to (count-1) do
  begin
    item := lvshow.Items.Add;
    temp  := 'INFO' + IntToStr(i);
    new(pListInfo);
    pListInfo^.user   := myinifile.Readstring(temp, 'NAME', '');
    pListInfo^.passwd := myinifile.Readstring(temp, 'PASSWD', '');
    pListInfo^.ora    := myinifile.Readstring(temp, 'ORA', '');
    lvshow.Items[i].Data := pListInfo;
    item.SubItems.Add(pListInfo^.user);
    {item.SubItems.Add(pListInfo^.passwd);}
    item.SubItems.Add(pListInfo^.ora);
    item.SubItems.Add('未知');
  end;

  //读取用户名信息
  edthxuser.Text    := myinifile.ReadString('HXUSER', 'HXUSER', '');
  //读取密码信息
  edthxpwd.Text  := myinifile.ReadString('HXPWD', 'HXPWD', '');
  //读取服务器名

  myinifile.Destroy;

end;

说明：在文件读写操作首先要引用头文件：IniFiles；

myinifile   : TIniFile; 实例化一个文件流对象

filepath  := ExtractFilePath(Paramstr(0)) + 'myini.ini';        //获取当前路径+文件名
myinifile := Tinifile.Create(filepath);                         //创建文件并打开

从INI文件中读取一个整形数据：

参数1：域名

参数2：变量名

参数3：初始化值

count     := myinifile.ReadInteger('COUNT', 'COUNT', 0);        //读取INI文件中的COUNT值

从INI文件中读取一个字符串：

参数1：域名

参数2：变量名

参数3：初始化值

 edt1.Text   := myinifile.ReadString('HXUSER', 'HXUSER', '');   //从INI文件中读取一个字符串

关闭文件：

 myinifile.Destroy;

关闭文件：其次说一下写配置文件：

//将listview数据保存到INI文件中

procedure Tfoffertool.SaveListViewDataToINI();
var
  temp       :string;
  filepath   :string;
  idex       :Integer;
  pListInfo : pInfo;
  myinifile   : TIniFile;
begin
  try
    filepath := ExtractFilePath(Paramstr(0)) + 'myini.ini';
    myinifile := Tinifile.Create(filepath);
  except
    ShowMessage('SAVEINI打开配置文件失败');
    Exit;
  end;
  for idex := 0 to (lvshow.Items.Count-1) do
  begin
    pListInfo := lvshow.Items[idex].Data;
    temp := 'INFO' + IntToStr(idex);
    myinifile.WriteString(temp, 'NAME', pListInfo^.user);
    myinifile.WriteString(temp, 'PASSWD', pListInfo^.passwd);
    myinifile.WriteString(temp, 'ORA', pListInfo^.ora);
  end;
  myinifile.WriteInteger('COUNT', 'COUNT', idex);
  myinifile.WriteString('TABLENAME', 'TABLENAME', edtshtable.Text);
  myinifile.WriteString('HXUSER', 'HXUSER', edthxuser.Text);
  myinifile.WriteString('HXPWD', 'HXPWD', edthxpwd.Text);
  myinifile.Destroy;
end;

说明：

向一个INI文件中写入一个整形数据：

参数1：域名

参数2：变量名

参数3：数值

myinifile.WriteInteger('COUNT', 'COUNT', idex);    //向INI文件中写一个整形数据

向一个INI文件中写入一个字符串数据：

参数1：域名

参数2：变量名

参数3：字符串数据

myinifile.WriteString('HXPWD', 'HXPWD', edthxpwd.Text);   //向INI文件中写入字符串数据

关闭文件：

myinifile.Destroy;

更详细的讲解Delphi操作读写INI文件连接：http://wenku.baidu.com/link?url=ktXMUwthCYhMpFUSRDJrNQRs0HLZK78-gbUc6MH8UZF-GPVZHId1ZGe2XtYASSthpvU7z_JY8Bik-Z9s4hHe213RPnfm31NW8rnjQXU6b_q&qq-pf-to=pcqq.group