delphi读写ini文件实例
//--两个过程,主要实现:窗体关闭的时候,文件保存界面信息;窗体创建的时候,程序读取文件文件保存的信息。 //--首先要uses IniFiles(单元)
//--窗体创建的时候,读取ini文件信息 procedure TfrmAFN04H_F9.FormCreate(Sender: TObject);
var
vFIni: TIniFile;
sFileName: string;
begin
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '/' + 'saveInformation.ini'; vFIni := TIniFIle.Create(sFileName);
Edit1.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit2.Text := vFIni.ReadString('AFN04F7', 'Edit2', '0');
Edit3.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit4.Text := vFIni.ReadString('AFN04F7', 'Edit4', '0'); end; //--窗体关闭的时候,文件保存界面信息; procedure TfrmAFN04H_F9.FormClose(Sender: TObject;
var Action: TCloseAction);
var
sFileName: string;
vFIni: TIniFile;
iTmp, i: integer;
name: string;
begin //写配置文件
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '/' + 'saveInformation.ini'; vFIni := TIniFIle.Create(sFileName);
try
vFIni.WriteString('AFN04F9', 'Edit1', Edit1.Text);
vFIni.WriteString('AFN04F9', 'Edit2', Edit2.Text);
vFIni.WriteString('AFN04F9', 'Edit3', Edit3.Text);
vFIni.WriteString('AFN04F9', 'Edit4', Edit4.Text);
finally
vFIni.Free;
end;
end;
[delphi] view plaincopy
uses IniFiles; //简单数据类型
TSimpleType = (stInt, stFloat, stString, stDateTime, stDate, stTime, stBoolean); function ReadIniValue(const FileName, Section, Name: string;
SimpleType: TSimpleType; DefaultValue: Variant): Variant;
// 读Ini文件的函数
// FileName:Ini文件名
// Section:节点
// Name:字段名
// SimpleType:简单数据类型
// DefaultValue:默认值
// 返回变体类型
begin
with TIniFile.Create(FileName) do
try
if SimpleType = stString then
Result := ReadString(Section, Name, DefaultValue)
else if SimpleType = stInt then
Result := ReadInteger(Section, Name, DefaultValue)
else if SimpleType = stFloat then
Result := ReadFloat(Section, Name, DefaultValue)
else if SimpleType = stDateTime then
Result := ReadDateTime(Section, Name, DefaultValue)
else if SimpleType = stDate then
Result := ReadDate(Section, Name, DefaultValue)
else if SimpleType = stTime then
Result := ReadTime(Section, Name, DefaultValue)
else if SimpleType = stBoolean then
Result := ReadBool(Section, Name, DefaultValue);
finally
Free;
end; procedure WriteIniValue(const FileName, Section, Name: string;
Value: Variant; SimpleType: TSimpleType);
// 写INI文件的函数
// FileName:Ini文件名
// Section:节点
// Name:字段名
// Value:字段值
// SimpleType:简单数据类型
begin
with TIniFile.Create(FileName) do
try
if SimpleType = stString then
WriteString(Section, Name, VarToStr(Value))
else if SimpleType = stInt then
WriteInteger(Section, Name, Value)
else if SimpleType = stFloat then
WriteFloat(Section, Name, Value)
else if SimpleType = stDateTime then
WriteDateTime(Section, Name, VarToDateTime(Value))
else if SimpleType = stDate then
WriteDate(Section, Name, VarToDateTime(Value))
else if SimpleType = stTime then
WriteTime(Section, Name, VarToDateTime(Value))
else if SimpleType = stBoolean then
WriteBool(Section, Name, Value);
finally
Free;
end; end; 调用范例: WriteIniValue('c:/config.ini','constring','db','aaa',stString); WriteIniValue('c:/config.ini','constring','port',1,stInt); ReadIniValue('c:/config.ini','constring','dbname',stString,'misdate'); ReadIniValue('c:/config.ini','constring','connect',stInt,-1);
WriteIniValue('c:/中国烂鞋.ini','锅家队','猪教练','郭十二',stString); WriteIniValue('c:/中国烂鞋.ini','锅家队','平均罚球',1,stInt); ReadIniValue('c:/中国烂鞋.ini','锅家队','猪教练',stString,'郭12'); ReadIniValue('c:/中国烂鞋.ini','锅家队','平均罚球',stInt,-1);
[delphi] view plaincopy
1.Delphi读写ini文件需要引用'IniFiles'单元
2.定义变量:
Var
Filename:string;
myinifile:Tinifile;
3.变量附值
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';//指明路径.如果不指明路径.文件将在windows目录建立
myinifile:=Tinifile.Create(Filename);//Create('program.ini');
4.写入文件
myinifile.writestring(小节名,关键字,变量或者字符串值);
myinifile.writeinteger(小节名,关键字,变量或者整数数值);
myinifile.writenbool(小节名,关键字,变量或者True/False);
如果ini文件不存在的时候.会自动创建该ini文件
5.删除关键字
myinifile.DeleteKey(小节名,关键字);
6.删除小节
myinifile.EraseSection(小节名);
7.释放变量
myinifile.distory;
8.其他
Tinifile类还提供了3种对象方法来操作ini文件
①myinifile.readsection(小节名,TStrings变量);可将指定小节中的所有关键字名读取至一个字符串列表变量中;
②myinifile.readsections(TStrings变量);可将INI文件中所有小节名读取至一个字符串列表变量中去.
③myinifile.readsectionvalues(小节名,TStrings变量);可将INI文件中指定小节的所有行(包括关键字、=、值)读取至一个字符串列表变量中去. 9. delphi读写ini文件实例
//--两个过程,主要实现:窗体关闭的时候,文件保存界面信息;窗体创建的时候,程序读取文件文件保存的信息。
//--首先要uses IniFiles(单元)
//--窗体创建的时候,读取ini文件信息 procedure TfrmAFN04H_F9.FormCreate(Sender: TObject);
var
vFIni: TIniFile;
sFileName: string;
begin
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '/' + 'saveInformation.ini'; vFIni := TIniFIle.Create(sFileName);
Edit1.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit2.Text := vFIni.ReadString('AFN04F7', 'Edit2', '0');
Edit3.Text := vFIni.ReadString('AFN04F7', 'Edit1', '0');
Edit4.Text := vFIni.ReadString('AFN04F7', 'Edit4', '0'); end; //--窗体关闭的时候,文件保存界面信息; procedure TfrmAFN04H_F9.FormClose(Sender: TObject;
var Action: TCloseAction);
var
sFileName: string;
vFIni: TIniFile;
iTmp, i: integer;
name: string;
begin //写配置文件
sFileName := ExtractFileDir(Application.ExeName);
if Copy(sFileName, Length(sFileName) - 1, 1) = '/' then
sFileName := sFileName + 'saveInformation.ini'
else
sFileName := sFileName + '/' + 'saveInformation.ini'; vFIni := TIniFIle.Create(sFileName);
try
vFIni.WriteString('AFN04F9', 'Edit1', Edit1.Text);
vFIni.WriteString('AFN04F9', 'Edit2', Edit2.Text);
vFIni.WriteString('AFN04F9', 'Edit3', Edit3.Text);
vFIni.WriteString('AFN04F9', 'Edit4', Edit4.Text);
finally
vFIni.Free;
end;
end;

  

封装 INI 文件读写函数的更多相关文章

  1. QSettings配置读写-win注册表操作-ini文件读写

    版权声明:若无来源注明,Techie亮博客文章均为原创. 转载请以链接形式标明本文标题和地址: 本文标题:QSettings配置读写-win注册表操作-ini文件读写     本文地址:http:// ...

  2. [IO] C# INI文件读写类与源码下载 (转载)

    /// <summary> /// 类说明:INI文件读写类. /// 编 码 人:苏飞 /// 联系方式:361983679 /// 更新网站:[url]http://www.sufei ...

  3. C#对INI文件读写

    C#本身没有对INI格式文件的操作类,可以自定义一个IniFile类进行INI文件读写. using System; using System.Collections.Generic; using S ...

  4. VC++ 实现INI文件读写操作

    转载:https://blog.csdn.net/fan380485838/article/details/73188420 在实际项目开发中,会用ini配置文件,在此总结一下对ini读写操作 一:读 ...

  5. ini文件读写 保存上次存储内容

    using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin ...

  6. (转载)C++文件读写函数之——fopen、fread和fwrite、fgetc和fputc、fgets和fputs、ftellf和fseek、rewind

    http://blog.sina.com.cn/s/blog_61437b3b0102v0bt.html http://blog.csdn.net/chenwk891/article/details/ ...

  7. C文件读写函数介绍(转)

    1.fopen() fopen的原型是:FILE *fopen(const char *filename,const char *mode),fopen实现三个功能:为使用而打开一个流,把一个文件和此 ...

  8. C#实现.ini文件读写操作

    1.ini文件是什么?        见百度百科:https://baike.baidu.com/item/ini%E6%96%87%E4%BB%B6/9718973?fr=aladdin 2.C#语 ...

  9. C# INI文件读写类

    public class Ini { // 声明INI文件的写操作函数 WritePrivateProfileString() [System.Runtime.InteropServices.DllI ...

随机推荐

  1. P8 Visible Lattice Points

    P8 Visible Lattice Points Time Limit:1000ms,     Memory Limit:65536KB Description A lattice point (x ...

  2. MyEclipse8.5 无法安装ADT解决办法

    打开MYECLIPSE.点击菜单栏的help ->my eclipse configure center .然后add site  指向 https://dl-ssl.google.com/an ...

  3. 文本属性Attributes 初步

    转载自:http://www.cnblogs.com/qingche/p/3574995.html 1.NSKernAttributeName: @10 调整字句 kerning 字句调整 2.NSF ...

  4. 基于Verilog HDL 各种实验

    菜鸟做的的小实验链接汇总:           1.基于Verilog HDL 的数字时钟设计 2.乘法器 3.触发器(基本的SR触发器.同步触发器.D触发器) 4.基于Verilog HDL的ADC ...

  5. mysql安装使用--2 用户管理

    1 修改mysql.user表 添加用户 mysql> INSERT INTO mysql.user (Host,User,Password) VALUES (\'%\',\'system\', ...

  6. CodeForces 616B Dinner with Emma

    水题 #include<cstdio> #include<cstring> #include<algorithm> using namespace std; +; ...

  7. MySQL 索引的使用

    一.or 的使用 (1)MySQL版本大于 5.x 的会使用 index merge 功能,即可以将多个单列索引集合起来使用,不过在查询时使用 or 的话,引擎为 myisam 的会开启 index ...

  8. mysql 大树据表update很慢

    问题描述: 数据表千万量级,update  where gid="adadfadsfasdf",返回结果显示耗时70ms到1s之间 分析: 表很大,那么update,可能先要取索引 ...

  9. 批量删除ASP.NET中的缓存(cache)

    IDictionaryEnumerator em = HttpContext.Current.Cache.GetEnumerator(); while (em.MoveNext())        { ...

  10. NIO 入门基础

    输入/输出:概念性描述 I/O 简介 I/O ? 或者输入/输出 ? 指的是计算机与外部世界或者一个程序与计算机的其余部分的之间的接口.它对于任何计算机系统都非常关键,因而所有 I/O 的主体实际上是 ...