欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Delphi 常見(jiàn)文件處理及注冊(cè)表文件的使用實(shí)例

 更新時(shí)間：2017年09月04日 09:14:05   作者：bdmh  
這篇文章主要介紹了Delphi 常見(jiàn)文件處理及注冊(cè)表文件的使用實(shí)例的相關(guān)資料,希望通過(guò)本文能幫助到大家，需要的朋友可以參考下

Delphi 常見(jiàn)文件處理及注冊(cè)表文件的使用實(shí)例

前言：

 Registry為我們提供了操作注冊(cè)表的方法,這里我們用TRegIniFile提供的方法,TRegIniFile繼承自TRegistry,TRegIniFile提供的方法類(lèi)似于前面講到的操作Ini文件的方法,這樣就大大簡(jiǎn)化了我們操作"神秘"注冊(cè)表的方法,下面是常用的方法:

  1. function CreateKey(const Key: String): Boolean;  創(chuàng)建Key
  2. function OpenKey(const Key: String; CanCreate: Boolean): Boolean; 打開(kāi)Key,當(dāng)CanCreate為T(mén)rue時(shí),如果Key不存在,會(huì)自動(dòng)創(chuàng)建
  3. procedure EraseSection(const Section: String); 刪除
  4. WriteString,WriteInteger,WriteBool,WriteCurrency 寫(xiě)值
  5. ReadString,ReadInteger,ReadBool,ReadCurrency  讀值
  6. ReadSection,ReadSections,ReadSectionValues 這些是不是很眼熟,和INI文件的方法一樣

看例子

創(chuàng)建節(jié)點(diǎn)

var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //創(chuàng)建實(shí)例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then  //打開(kāi) HKey_Local_Machine/SOFTWARE/MyReg,如果MyReg不存在,則自動(dòng)創(chuàng)建 
 begin 
 //在HKey_Local_Machine/SOFTWARE/MyReg下創(chuàng)建MySec項(xiàng),然后在MySec中創(chuàng)建一個(gè)字符串MyValue,值為China 
 reg.WriteString('MySec','MyValue','China'); 
 end; 
end;

刪除值

var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //創(chuàng)建實(shí)例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 if reg.OpenKey('SOFTWARE/MyReg/MySec',True) then 
 begin 
 //刪除HKey_Local_Machine/SOFTWARE/MyReg/MySec下MyValue一項(xiàng) 
 reg.DeleteValue('MyValue'); 
 end; 
end;

刪除Key

var 
 reg:TRegIniFile; 
begin 
 reg := TRegIniFile.Create;    //創(chuàng)建實(shí)例 
 reg.RootKey := HKey_Local_Machine;  //設(shè)置根值 
 if reg.OpenKey('SOFTWARE/MyReg',True) then 
 begin 
 //刪除HKey_Local_Machine/SOFTWARE/MyReg下的MySec 
 reg.EraseSection('MySec'); 
 end; 
end;

讀取Key的列表以及讀取Key下值的列表都與INI文件的操作類(lèi)似,

如有疑問(wèn)請(qǐng)留言或者到本站社區(qū)交流討論，感謝閱讀，希望能幫助到大家，謝謝大家對(duì)本站的支持！

相關(guān)文章

最新評(píng)論