Delphi- ini文件的读写操作
procedure TForm1.FormCreate(Sender: TObject);
Var
MyIni :Tinifile;
glAppPath :string;
begin
glAppPath := ExtractFilePath(Application.ExeName);//获取当前运行程序的路径
MyIni := Tinifile.Create(glAppPath + 'myini.ini');
Edit1.Text := MyIni.ReadString('Setting','名称','');
Edit2.Text := MyIni.ReadString('Setting','地址','');
Edit3.Text := MyIni.ReadString('Setting','电话','');
MyIni.Free;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Form2 := TForm2.Create(self);
Form2.ShowModal;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
MyIni :Tinifile;
glAppPath, path :string;
begin
glAppPath := ExtractFilePath(Application.ExeName);
MyIni := Tinifile.Create(glAppPath + 'myini.ini');
Edit1.Text := MyIni.ReadString('Setting','名称','');
Edit2.Text := MyIni.ReadString('Setting','地址','');
Edit3.Text := MyIni.ReadString('Setting','电话','');
MyIni.Free;
Path := ExtractFilePath(Application.ExeName);
end;
end.
二、写ini文件示例
procedure TForm2.Button1Click(Sender: TObject);
Var
MyIni :Tinifile;
glAppPath :string;
begin
glAppPath := ExtractFilePath(Application.ExeName);
MyIni := Tinifile.Create(glAppPath + 'myini.ini');
MyIni.WriteString('Setting','名称',Edit1.text);
MyIni.WriteString('Setting','地址',Edit2.text);
MyIni.WriteString('Setting','电话',Edit3.text);
MyIni.Free;
Close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;
end.
地址=456
电话=789
利用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。其实,对.INI文件的读写完全可以利用Delphi的内置函数来实现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象 以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法,专门用来对INI文件进行读写操作。如果在程序中要用到TIniFile类或其方法属性,就必须在程序单元的uses语句中手工加入对IniFiles单元的引用。 2、Create方法 该方法用来创建一个处理INI文件的TIniFile类型实例。 方法声明:constructor Create(const FileName:string); 参数说明:FileName指明待创建的INI文件的文件名; 注释:在使用TIniFile对象之前,必须先用此方法创建一个INI文件的实例。FileName中可以包含路径名,缺省时为Windows所在目录(一般就是C:\windows,对于Windows NT来说,则一般是c:\winnt)。用Create方法创建的实例,在使用完之后,调用Free方法释放内存。 3、ReadSection方法 该方法从INI文件中读出指定段的所有子键名,并存入Strings参数指定的字符串列表对象中。 方法声明:procedure ReadSection(const Section:string; Strings:TStrings); 参数说明:Section指明要读取段的段名; Strings指明存放子键名的字符串列表; 注释:ReadSection方法仅读入指定段的所有子键名,但不读入子键的值。 4、ReadSections方法 该方法从INI文件中读取所有段名,并存入Strings参数指定的字符中列表中。 方法声明:procedure ReadSections(Strings:TStrings); 参数说明:Strings参数指明存放段名的字符串列表; 注释:ReadSections方法将INI文件中所有段的段名读出,存入一指定的字符串列表中,此字符串列表可以直接使用某个列表框的Items属性。 5、ReadSectionValues方法 该方法从INI文件中读入指定段的所有子键名及其键值,并存入Strings参数指定的字符串列表中。 方法声明:procedure ReadSectionValues(const Section:String; Strings:TStrings); 参数说明:Section指明要读取段的段名; Strings指明存放段名的字符串列表; 注释:ReadSectionValues方法与ReadSection方法的区别在于后者仅读入子键名,面前者除了读取子键名之外,还读取该子键对应的键值。读入的子键名及键值在字符串列表中的存放方法与在文件中的显示方法一致,即"Key=Value"形式。 6、EraseSection方法 该方法删除INI文件中指定的一个整段。 方法声明:procedure EraseSection(const Section:string); 参数说明:Section指明待删除段的段名; 注释:EraseSection方法不仅删除指定段的段名,面且同时将该段的所有子键及键值删除。 7、DeleteKey方法 该方法删除指定段中的某个指定的子键。 方法声明:procedure DeleteKey(const Section,Key:string); 参数说明:Section指明待删除子键据段的段名; Key指明待删除子键的键名; 注释:DeleteKey方法删除整个子键(包括键名和键值),也就是删除该子键所在的一行。 8、ReadBool方法 该方法读取指定段的某个子键的布尔值。 方法声明:function ReadBool(const Section,Key:string;Default:Boolean):Boolean; 参数说明:Section指明待读子键所在段的段名; Key指明待读子键的键名; Default参数指明缺省时的返回值。 注释:ReadBool方法用于读取一个子键的布尔型值,当键值为"1"时,返回True,键值为"0"时,返回False. 9、WriteBool方法 该方法向指定段的某个子键写入布尔值。 方法声明:procedure WriteBool(const Section, Key:string; Value:Boolean); 参数说明:Senction指明待写入子键所在段的段名; Key参数指明待写入值的子键键名; Value指明待写入的布尔值; 注释:WriteBool 方法用于写入一个子键的布尔值,当Value为"True"时,写入"1"。Value为"Flase"时,写入"0"。若在写入时,指定的段或键名不存在,则自动创建该段和键名。 10、ReadInteger方法 该方法读取指定段的某个子键的整型值。 方法声明:function ReadInteger(const Section,Key:string; Default:longint):longint; 注释:此方法与ReadBool方法类似,只是变量类型不同。 11、WriteInteger方法 该方法向指写段的某个子键写放整型值。 方法声明:procedure WriteInteger(const Section,Key:string; Value:longint); 注释:此方法与WriteBool方法类似,只是变量灰型不同。 12、ReadString方法 该方法读取指定段的某个子键的字符串型 值。 方法声明:function ReadString(const Section,Key:string; Default:string):string; 注释;此方法与ReadBool方法类似,只是变量类型不同。 13、WriteString方法 该方法向指写段的某个子键写入整型值。 方法声明:procedure WriteString(const Section,Key:string; Value:string); 注释:此方法与WriteBool方法类似,只是变量类型不同。 14、FileName属性 该属性指明被封装在TIniFile对象中的INI文件的文件名。 属性声明:property FileName:string; 注释:FileName属性是一个运行时的只读属性。 由一面的介绍,我们可以看到,强大的Delphi对INI文件的支持是非常全面的。我们在编写涉及此类操作的程序时,几乎无需使用Windows API函数 |
Delphi- ini文件的读写操作的更多相关文章
- INI 文件的读写操作
在C#中对INI文件进行读写操作,在此要引入using System.Runtime.InteropServices; 命名空间,具体方法如下: #region 变量 private static r ...
- Delphi对于文件的读写操作
delphi文件操作 取文件名 ExtractFileName(FileName); 取文件扩展名: ExtractFileExt(filename); 取文件名,不带扩展名: 方法一: Functi ...
- C#+Access 员工信息管理--简单的增删改查操作和.ini配置文件的读写操作。
1.本程序的使用的语言是C#,数据库是Access2003.主要是对员工信息进行简单的增删改查操作和对.ini配置文件的读写操作. 2.代码运行效果如下: 功能比较简单.其中在得到查询结果后,在查询结 ...
- QT从入门到入土(三)——文件的读写操作
引言 文件的读写是很多应用程序具有的功能,甚至某些应用程序就是围绕着某一种格式文件的处 理而开发的,所以文件读写是应用程序开发的一个基本功能. Qt 提供了两种读写纯文本文件的基本方法: 用 QFi ...
- Android 对 properties文件的读写操作
-. 放在res中的properties文件的读取,例如对放在assets目录中的setting.properties的读取:PS:之所以这里只是有读取操作,而没有写的操作,是因为我发现不能对res下 ...
- C++学习48 对ASCII文件的读写操作
如果文件的每一个字节中均以ASCII代码形式存放数据,即一个字节存放一个字符,这个文件就是ASCII文件(或称字符文件).程序可以从ASCII文件中读入若干个字符,也可以向它输出一些字符. 对ASCI ...
- android报错及解决2--Sdcard进行文件的读写操作报的异常
报错描述: 对Sdcard进行文件的读写操作的时候,报java.io.FileNotFoundException: /sdcard/testsd.txt (Permission denied),在往S ...
- Qt对ini文件的读写
研究了以下Qt下ini文件的读写,不废话,上干货. 写入ini文件 WriteIni.cpp void WriteIni::writeSettings() { QSettings settings(& ...
- java文件的读写操作
java文件的读写操作主要是对输入流和输出流的操作,由于流的分类很多,所以概念很容易模糊,基于此,对于流的读写操作做一个小结. 1.根据数据的流向来分: 输出流:是用来写数据的,是由程序(内存)--- ...
随机推荐
- 两个基于C++/Qt的开源WEB框架
1.tufao 项目地址: https://github.com/vinipsmaker/tufao 主页: http://vinipsmaker.github.io/tufao/ 介绍: Tufão ...
- Android TextView和EditText属性详解
TextView属性详解: autoLink设置 是否当文本为URL链接/email/电话号码/map时,文本显示为可点击的链接.可选值(none/web /email/phone/map/all) ...
- ColorBox常见问题
发现colorbox官方网站的troubleshoot写的比较好,转载一下. 1,flash覆盖colorbox: This is not a ColorBox specific problem, b ...
- C3p0/元数据/内省-Bean/自定义查询封装类/查询/分页
c3p0连接池(C3p0连接池,只有当用户获取连接时,才会包装Connection.) 第一步:导入c3p0 第二步:在classpath目录下,创建一个c3p0-config.xml 第三步:创建工 ...
- JAVA-----乱码的处理 乱码的解决方法总结
为什么说乱码是程序员无法避免的话题呢?这个首先要从编码机制上说起,大家都是中文和英文的编码格式不是一样,解码也是不一样的!工作遇到各种各样的乱码的解决方法总结一下. 对于Java由于默认的编码方式是 ...
- 三个入侵的必备小工具-lcx.exe、nc.exe、sc.exe
lcx.exe的使用方法 以前抓肉鸡都是通过1433弱口令,然后.. 但是发现很多服务器开了1433,3389,但是终端是连不上的,因为服务器本身是在内网,只对外开放了1433端口,幸好有lcx. ...
- Java String 的equals, == , hascode的区别
1.equals 和 == ==在java中是比较引用的,即在内存中的地址.而String的equals()是比较字符串的内容 http://blog.csdn.net/barryhappy/arti ...
- Java [leetcode 35]Search Insert Position
题目描述: Given a sorted array and a target value, return the index if the target is found. If not, retu ...
- Java [leetcode 10] Regular Expression Matching
问题描述: Implement regular expression matching with support for '.' and '*'. '.' Matches any single cha ...
- oracle11g dataguard部署指南
一.Oracle11DB+DG配置 1. 单机环境介绍(PRIMARY DATABASE) 主库 primary public ip 192.168.0.252 ...