ini文件操作：使用 TIniFile

最新推荐文章于 2021-06-11 21:21:25 发布
最新推荐文章于 2021-06-11 21:21:25 发布
阅读量216 收藏
点赞数
原文链接：http://www.cnblogs.com/hblikun/articles/2181306.html
版权

一．INI文件的结构
[小节名]ini文件
关键字1＝值1
关键子2＝值2
INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。
值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。

二、定义

1、 在Interface的Uses节增加IniFiles；
2、 在Var变量定义部分增加一行： myinifile:Tinifile;
定义类的一个实例。然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了

三、打开INI文件
myinifile:=Tinifile.create(program.ini);
上面这一行语句将会为变量myinifile与具体的文件program.ini建立联系，然后，就可以通过变量myinifile，来读写program.ini文件中的关键字的值了。
值得注意的是，如果括号中的文件名没有指明路径的话，那么这个Program.ini文件会存储在Windows目录中,把Program.ini文件存储在应用程序当前目录中的方法是：为其指定完整的路径及文件名。下面的两条语句可以完成这个功能：
Filename:=ExtractFilePath(Paramstr(0))+program.ini;
myinifile:=Tinifile.Create(filename);

四、读取INI文件

myinifile.Readstring(小节名,关键字,变量或字符串值); //读字符串

myinifile.ReadInteger(小节名,关键字,变量或整型数值); //读整数

myinifile.readbool(小节名,关键字,变量或True或False); //读布尔类型

五、写入INI文件
同样的，TInifile类也提供了三种不同的对象方法，向INI文件写入字符串、整型数及布尔类型的关键字。
myinifile.writestring(小节名,关键字,变量或字符串值);
myinifile.writeinteger(小节名,关键字,变量或整型数值);
myinifile.writebool(小节名,关键字,变量或True或False);
当这个INI文件不存在时，上面的语句还会自动创建该INI文件

六、删除关键字
除了可用写入方法增加一个关键字，Tinifile类还提供了一个删除关键字的对象方法：
myinifile.DeleteKey(小节名,关键字);

七、小节操作
增加一个小节可用写入的方法来完成，删除一个小节可用下面的对象方法：
myinifile.EraseSection(小节名);
另外Tinifile类还提供了三种对象方法来对小节进行操作：
myinifile.readsection(小节名,TStrings变量);可将指定小节中的所有关键字名读取至一个字符串列表变量中；
myinifile.readsections(TStrings变量);可将INI文件中所有小节名读取至一个字符串列表变量中去。
myinifile.readsectionvalues(小节名,TStrings变量);可将INI文件中指定小节的所有行（包括关键字、=、值）读取至一个字符串列表变量中去。

八、释放
在适当的位置用下面的语句释放myinifile：
myinifile.distory;
下面是具体例子。源代码如下。创建了一个myini.ini文件，有一个名为newini的小节，有3个关键字“用户名称”“已运行时间”“是否正式用户”。运行效果，可以在edit1里边填入“用户名称”；edit2显示时间，不可以改变数值；checkbox1通过打勾，保存时间和“用户名称”进入myini.ini文件里边，重新打开应用程序时，显示的时保存下来的时间和填入的“用户名称”，如果在myini.ini文件里边修改，效果和在程序运行过程中修改时一样的。

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses IniFiles;  {uses 包含 TIniFile 的单元}

var
  ini: TIniFile;
  path: string;         {ini 文件路径}
  Section,Key: string;  {分别表示 ini 文件的小节与关键字}

{
  ini文件结构:
  ;注释
  [小节名]
  关键字=值

  INI文件支持: string、integer、boolean、Date、Time、DateTime、Double 与二进制类型
  string 值没有引号
  boolean 的真假用 1、0 表示
}

procedure TForm1.FormCreate(Sender: TObject);
begin
  path := ChangeFileExt(ParamStr(0),'.ini');
  ini := TIniFile.Create(path);  {ini 对象建立需要文件路径参数, 如果缺少路径会默认Windows目录}
end;

//写入 ini 文件:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Section := 'AAA';
  Key := 'AString';
  ini.WriteString(Section,Key,'AAA-String');

  Key := 'AInteger';
  ini.WriteInteger(Section,Key,111);

  Key := 'ABoolean';
  ini.WriteBool(Section,Key,True);

  Key := 'ADate';
  ini.WriteDate(Section,Key,Now);

  Key := 'ATime';
  ini.WriteTime(Section,Key,Now);

  Key := 'ADateTime';
  ini.WriteDateTime(Section,Key,Now);

  Key := 'ADouble';
  ini.WriteFloat(Section,Key,Pi);


  Section := 'BBB';
  Key := 'BString';
  ini.WriteString(Section,Key,'BBB-String');

  Key := 'BInteger';
  ini.WriteInteger(Section,Key,222);

  Key := 'BBoolean';
  ini.WriteBool(Section,Key,True);

  Key := 'BDate';
  ini.WriteDate(Section,Key,Now);

  Key := 'BTime';
  ini.WriteTime(Section,Key,Now);

  Key := 'BDateTime';
  ini.WriteDateTime(Section,Key,Now);

  Key := 'BDouble';
  ini.WriteFloat(Section,Key,Pi);


  Section := 'CCC';
  Key := 'CString';
  ini.WriteString(Section,Key,'CCC-String');

  Key := 'CInteger';
  ini.WriteInteger(Section,Key,333);

  Key := 'CBoolean';
  ini.WriteBool(Section,Key,False);

  Key := 'CDate';
  ini.WriteDate(Section,Key,Now);

  Key := 'CTime';
  ini.WriteTime(Section,Key,Now);

  Key := 'CDateTime';
  ini.WriteDateTime(Section,Key,Now);

  Key := 'CDouble';
  ini.WriteFloat(Section,Key,Pi);

{写入结果:
  [AAA]
  AString=AAA-String
  AInteger=111
  ABoolean=1
  ADate=2007-12-17
  ATime=22:06:23
  ADateTime=2007-12-17 22:06:23
  ADouble=3.14159265358979
  [BBB]
  BString=BBB-String
  BInteger=222
  BBoolean=1
  BDate=2007-12-17
  BTime=22:06:23
  BDateTime=2007-12-17 22:06:23
  BDouble=3.14159265358979
  [CCC]
  CString=CCC-String
  CInteger=333
  CBoolean=0
  CDate=2007-12-17
  CTime=22:06:23
  CDateTime=2007-12-17 22:06:23
  CDouble=3.14159265358979
}
end;

//读取 ini 文件:
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  i: Integer;
  b: Boolean;
  f: Double;
  d: TDate;
  t: TTime;
  dt: TDateTime;
begin
  s := ini.ReadString('BBB','BString','');  {最后一个参数是默认值}
  i := ini.ReadInteger('BBB','BInteger',0);
  b := ini.ReadBool('BBB','BBoolean',False);
  f := ini.ReadFloat('BBB','BDouble',0);
  d := ini.ReadDate('BBB','BDate',Now);
  t := ini.ReadTime('BBB','BTime',Now);
  dt := ini.ReadDateTime('BBB','BDateTime',Now);

  ShowMessage(s);                 {BBB-String}
  ShowMessage(IntToStr(i));       {222}
  ShowMessage(BoolToStr(b));      {-1(True)}
  ShowMessage(FloatToStr(f));     {3.14159265358979}
  ShowMessage(DateToStr(d));      {2007-12-17}
  ShowMessage(TimeToStr(t));      {22:06:23}
  ShowMessage(DateTimeToStr(dt)); {2007-12-17 22:06:23}
end;

//读入所有小节名到 TStrings:
procedure TForm1.Button3Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  ini.ReadSections(List);
  ShowMessage(List.Text);
  {
    AAA
    BBB
    CCC
  }
  List.Free;
end;

//读入指定小节的所有关键字到 TStrings:
procedure TForm1.Button4Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  ini.ReadSection('AAA',List);
  ShowMessage(List.Text);
  {
    AString
    AInteger
    ABoolean
    ADate
    ATime
    ADateTime
    ADouble
  }
  List.Free;
end;

//读入指定小节的所有关键字与值到 TStrings:
procedure TForm1.Button5Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  ini.ReadSectionValues('BBB',List);
  ShowMessage(List.Text);
  {
    BString=BBB-String
    BInteger=222
    BBoolean=1
    BDate=2007-12-17
    BTime=22:06:23
    BDateTime=2007-12-17 22:06:23
    BDouble=3.14159265358979
  }
  List.Free;
end;

//删除与添加
procedure TForm1.Button6Click(Sender: TObject);
begin
  ini.DeleteKey('BBB','BString');  {删除关键字}
  ini.EraseSection('CCC');         {删除小节}
//  ini.UpdateFile;                {保存到文件}

{添加小节与关键字或修改值, 直接写入即可}
end;

//其他功能
procedure TForm1.Button7Click(Sender: TObject);
var
  b: Boolean;
  s: string;
begin
  b := ini.SectionExists('DDD');         {判断某个小节是否存在}
  b := ini.ValueExists('AAA','AString'); {判断某个关键字的值是否存在}
  s := ini.FileName;                     {获取文件名}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ini.Free;
end;

end.

转载于:https://www.cnblogs.com/hblikun/articles/2181306.html

Anna5201
关注
易语言内存INI文件操作模块
07-21
易语言内存INI文件操作模块源码,内存INI文件操作模块,Init,ReadConfig,WriteConfig,SaveFile,GetData
易语言内存INI文件操作模块源码-易语言
06-13
易语言内存INI文件操作模块源码
Delphi 操作Ini文件
dieyou9671的博客
10-06 121
Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件 一．INI文件的结构 [小节名]ini文件 关键字1＝值1 关键子2＝值2 INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用...
易语言内存INI文件操作模块源码
06-03
易语言内存INI文件操作模块源码。@易语言源码分享站。
易语言读写配置项ini文件
有勇气的牛排博客
06-11 6453
易语言读写配置项ini文件。
INI文件操作
10-31
INI文件是一种简单的文本配置文件格式，广泛用于存储应用程序的设置和配置信息。它由一系列的节（Section）、键（Key）和值...通过学习和掌握TIniFile类的使用，可以方便地对INI文件进行各种操作，满足日常开发需求。
Delphi Tinifile创建INI文件的范例.rar
07-10
Delphi 创建INI文件，使用了Tinifile.Create来创建一个指定格式的INI文件，作为程序的配置文件，运行程序时读入文件中的内容。ini文件作为配置文件，相信大家已经不陌生了，对于Delphi操作新手来说，源代码有很好的...
Delphi操作INI文件配置应用程序
05-18
内容索引:Delphi源码,文件操作,INI,文件操作　Delphi操作INI文件配置应用程序，一般用作程序的配置文件，首次运行后可生成一个INI文件，以方便程序调用。 　begin 　// 获取当前程序所在路径 　FileName := ‘c:...
Delphi INI_file.zip_INI文件读取_android delphi_bearugq_delphi_ini文件保
09-15
标题中的“Delphi INI_file.zip_INI文件读取_android delphi_bearugq_delphi_ini文件保”表明这是一个关于使用Delphi编程语言处理INI文件的教程，特别关注在Windows和Android平台上进行读取和保存操作。这个压缩包...
Delphi Ini文件操作.docx
12-27
对于 INI 文件的操作，Delphi 提供了一个名为 `TIniFile` 的类，该类提供了对 INI 文件的读写、创建、删除等操作的简便接口。 INI 文件是一种文本格式的配置文件，常用于存储应用程序的设置和配置信息。它的基本...
ini文件操作类，象delphi一样简单的操作ini文件
07-31
使ini文件的操作象delphi一样简单
易语言制作的INI文件编辑工具
08-24
ini文件的编辑工具源代码，可以对INI文件进行全面操作
ini文件读写类
08-10
对*.ini文件读写，狠好用，只要将类放到工程中就可以使用
Delphi读取ini文件并操作
08-19
Delphi读取ini文件并操作 文章详解地址：http://sunny8675.iteye.com/admin/blogs/1153040
Delphi之ini
12-26 176
Delphi INI文件读写1.uses 里面要加上Inifiles引用 2.var inifile:Tinifile; 变量声明 3.窗体创建程序里面初始化 变量 inifile fileName:=ExtractFilePath(ParamStr(0))+'PhoneCheck.ini'; inifile:=Tinifile.Create(fileName); ExtractFilePath(
Delphi读取UTF-8格式ini
qq_18932003的博客
11-24 1348
不说了贴代码。 Uses IniFiles; const SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + Pat...
ini配置文件的格式
missshirly的专栏
07-28 954
为什么要用INI文件？如果我们程序没有任何配置文件时，这样的程序对外是全封闭的，一旦程序需要修改一些参数必须要修改程序代码本身并重新编译，这样很不好，所以要用配置文件，让程序出厂后还能根据需要进行必要的配置；配置文件有很多如INI配置文件，XML配置文件，还有就是可以使用系统注册
易语言教程读配置项和写配置项
热门推荐
511遇见
07-05 1万+
当我们关闭一个软件窗口时，需要把一些数据保存起来，还有比如最后一次的登录账号、密码，软件的升级版本信息等等，我们通常保存在.ini文件中，易语言的写配置项（）和读配置项（）的作用大抵如此，本视频演示了如何把账号、密码写入配置文件，并且演示了加密密码和解密密码。 视频链接： 511遇见易语言教程 命令：一、写配置项（） 调用格式： 〈逻辑型〉 写配置项 （文本型 配置文件名，文本型 节名称，［文本型 配置项名称］，［文本型 欲写入值］） - 系统核心支持库->系统处理 英文名称：SetKey
DELPHI中的INI文件编程
weixin_33881140的博客
03-23 83
第一部分：INI文件的结构： ;——注释 [小节名] 关键字=值 ... ►---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。 ►---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。 ►---- 注释以分号“;”开头。 第二部分： 定义 ►...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值