Delphi 读写ini文件

前往Delphi专题

在Delphi中用来保存一些配置等信息用得最多的就是ini文件。

相对来说对ini配置文件的读写在 Delphi 中 读写都非常简单

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;

网友评论
最新图文
  • 在delphi 获取特殊目录 SHGetSpecialFolderLocation SHGetPathFromIDList

    在写应用程序的时候,我们经常会用到读取windows系统的一些特殊的目录。比如 桌面 快速启动栏的路径等等。下面介绍两个API函数 SHGetSpecialFolderLocation SHGetPathFromIDList我们先看代码:  代码文件:unit Unit1;interfaceuses Wind,西西hvbet688园-最安全的下载资讯站。

  • Delphi通过ADO读写数据库

    ADO是一种程序对象,用于表示用户数据库中的数据结构和所包含的数据。ADO (ActiveX Data Objects,ActiveX数据对象)是Microsoft提出的应用程序接口(API)用以实现访问关系或非关系数据库中的数据。例如,如果您希,西西hvbet688园-最安全的下载资讯站。

  • Delphi如何实现抓图技术

    摘 要:本文以Delphi7.0作为开发平台,给出了网络监控hvbet688中的两种屏幕抓图技术的设计方法和步骤。介绍了教师在计算机机房内教学时,如何监控学生计算机显示器上的画面,以保证教学的质量和效果。  引言  随着网络技术的飞速发展,计算机网络在各高等院校教学中,西西hvbet688园-最安全的下载资讯站。

  • delphi中使用ADOQuery时的几个问题解决方案

    问题1、文参数的支持问题今天在使用ClientDataSource查询的时候,“divece_name”参数赋值为“%笔记本电脑%”,但是使用SQL Server Profiler跟踪后发现查询的语句变为:查询的数据提交到数据库时不完整,当我把N'@P1varchar(8)', '%笔记本%'就可,西西hvbet688园-最安全的下载资讯站。

  • android计时器、android 格式化时间计数器的实现

    完整的Android程序,主要功能是实现秒表计时需求:默认为"00:00:00",点击开始按钮时清零后开始计时,出现如10:28:34。点击停止的时候停止计时。问题:使用Calendar DateFormat的方法,不设置时区获取到的小时是本地时区的(东八区的就是8),设,西西hvbet688园-最安全的下载资讯站。