-
等级
本版专家分：0结帖率 100% -
如何读.ini文件（初始化），delphi是否提供这样的API展开阅读全文
-
等级
本版专家分：83120勋章
-
- 银牌 2001年12月 总版技术专家分月排行榜第二
-
-
红花
2002年5月 Delphi大版内专家分月排行榜第一
2002年1月 Delphi大版内专家分月排行榜第一
-
-
黄花
2007年11月 .NET技术大版内专家分月排行榜第二
2007年1月 Delphi大版内专家分月排行榜第二
2006年12月 Delphi大版内专家分月排行榜第二
2006年10月 Delphi大版内专家分月排行榜第二
2002年8月 Delphi大版内专家分月排行榜第二
2002年6月 Delphi大版内专家分月排行榜第二
2001年12月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2002年4月 Delphi大版内专家分月排行榜第三
-
-
uses IniFiles;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TIniFile.Create('c:\windows\System.ini') do try
Caption := ReadString('boot', 'shell', '');
finally
Free;
end;
end;
-
等级
本版专家分：4615 -
Delphi中的INI文件编程
INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。
一、有必要了解INI文件的结构：
;注释
[小节名]
关键字=值
...
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文件支持的字符串、整型数值、布尔值三种数据类型，TINIfiles类提供了三种不同的对象方法来读取INI文件中关键字的值。
假设已定义变量vs、vi、vb分别为string、 integer、boolean类型。
vs:=myinifile.Readstring
('小节名','关键字',缺省值);
vi:=myinifile.Readinteger
('小节名','关键字',缺省值);
vb:=myinifile.Readbool
('小节名','关键字',缺省值);
其中缺省值为该INI文件不存在该关键字时返回的缺省值。
五、写入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;
九、一个实例
下面用一个简单的例子(如图)，演示了建立、读取、存贮INI文件的方法。myini.ini文件中包含有"程序参数"小节，和用户名称（字符串）、是否正式用户（布尔值）和已运行时间（整型值）三个关键字。程序在窗体建立读取这些数据，并在窗体释放时写myini.ini文件。
附源程序清单
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,inifiles,StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
myinifile:TInifile;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
edit1.Text:= myinifile.readstring
('程序参数','用户名称','缺省的用户名称');
edit2.text:= inttostr(myinifile.readinteger
('程序参数','已运行时间',0));
checkbox1.Checked:= myinifile.readbool
('程序参数','是否正式用户',False);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring('程序参数','用户名称',edit1.Text);
myinifile.writeinteger('程序参数','已运行时间',
strtoint(edit2.text));
myinifile.writebool('程序参数','是否正式用户',
checkbox1.Checked);
myinifile.Destroy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.
-
等级
本版专家分：228 -
急需,收藏哈哈
-
等级
本版专家分：70
-
1、调用API
var
StrResult:PChar;
begin
GetPrivateProfileString(
'', //[]中的名字
'', //=号前的名字
'nil', //如果为空返回的值，可设定
'StrResult', //存放返回值的字符串
'100', //指定字符串最大长度
'C:\windows\' //指定Ini文件位置
);
end;
2、不调API
uses Inifiles;
var
MyIni:=TInifile;
begin
MyIni:=TIniFile.Create('Ini文件名')；//此文件是已经存在的
MyIni.ReadString(); //参数可以在帮助中查到
MyIni.Writestring(); //参数可以在帮助中查到
end;
-
等级
本版专家分：7560 -
啊，来晚了~！楼上兄弟的资料已经很全的了
-
等级
本版专家分：8938
-
同意楼上！
- access读取EXCEL文件,并根据动态生成表，完成报表的导入
Option Compare DatabasePublic sheetid As String '报表IDPublic temp As String '获取年月时分秒Public tmpI As Integer '对应EXCEL行Public tmpJ As Integer '对应EXCEL列Public XlsApp As ObjectPublic ...
- access vba动态创建控件
在VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。在vb，excel当中，使用Control的add方法可以实现，然而，在...
- Access vba动态创建ActiveX控件
在Access VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。在vb，excel当中，使用Control的add方法可以实现，...
- ACCESS中通过VBA动态修改传递查询的SQL串
被人问到一个这样的问题:在ACCESS中创建了窗体,在窗体内的文本框中输入参数,传递给SQLserver的存储过程中,返回结果集,生成报表.已知可以通过ACCESS的传递查询执行SQL的存储过程,问:如何把窗体中输入的参数传入到动态...
- Access基础教程--第八章 使用VBA编程
本章内容 ◆ VBA编程基础◆ 创建和设计VBA程序◆ VBA程序调试与运行 一、VBA编程基础知识 在执行简单的操作时，宏可以完成，如窗体的打开与关闭、工具栏的显示和隐藏等。对于稍复杂一些的任务，则可用Visual ...
- VBA通用ADO数据访问模型
它允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心数据库的连接。由于ADO是基于COM实现的，所以基本上任何语言都可以使用这种数据访问技术，VBA也不例外。 一、ADO对象模型 ADO对象库中...
- VBA与数据库
1-1 利用DAO创建数据库和数据表 7 1-2 利用ADOX创建数据库和数据表： 8 1-3 利用SQL语句创建数据库和数据表 9 1-4 在已有的数据库中创建数据表（DAO） 10 1-5 在已有的数据库中创建数据表（ADOX） 12 1-6 在已有的...
- Access+2000中文版高级编程
11.4 用动态列创建交叉表查询的报表 320 11.4.1 报表使用的按窗体查询 321 11.4.2 报表使用的交叉表查询 323 11.4.3 DynamicColumnsExample报表 325 11.5 使用多项选择列表框选择多项打印主题 329 11.5.1 ...
- VBA中用ADO访问SQL SERVER数据库常用方法
Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，...
- 如何向ACCESS数据库上传并显示图片
在动态网站制做过程中，需要上传图片、显示图片，上传的图片要能够保存在数据库中，一般小型网站只支持ACCESS数据库，如何上传图片，将其保存在数据库中并将其显示出来，是数据库+ASP应用技术之一。许多书籍只介绍了...
- VBA-将数据分页显示（listview）
2.要想作出分页的效果，必须要用listview控件实现，一般来说在窗体工具箱中并没有这个控件，所以我们要自己添加，打开窗体工具箱，在空白处右键-->附加控件-->选择microsoft listview control,version...
- Access 2000数据库系统设计(PDF)---016
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- VBA基础知识
VB、VBA、Microsoft office、excel、access、PowerPoint1.VBA的基本概念2 数据类型2.1 VBA基本数据类型2.2 VBA自定义的数据类型3 VBA常量3.1 VBA系统定义常量3.2 VBA固有常量3.2 VBA符号常量4 变量4.1 声明4.1 赋值5...
- VBA，我的第一门语言（带你走进VBA的世界）
VBA是我正式学习的第一门计算机语言，也是一门我感情很深的计算机语言。它带我领略了编程的乐趣，让我相信一切皆有可能，一切皆可实现。它也给我带来的很多乐趣，很多工作机会。让我给你介绍一下它。 什么是VBA ...
- Access 2000数据库系统设计(PDF)---001
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- Access 2000数据库系统设计(PDF)---031
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- VBA中用ADO访问SQL SERVER数据库常用方法
VBA中用ADO访问SQL数据库常用方法 Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用...
- Access 2000数据库系统设计(PDF)---011
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- Access数据库小结
1、查询Access中的表名称 select name from MSysObjects where type=1 and flags=0 MSysObjects 2、几个查询结果Union All时，当使用了无表查询时，提示“查询输入必须包含至少一个表或查询” 也就是说在...
- 征服Excel VBA：让你工作效率倍增的239个实用技巧
详细介绍了Excel VBA 的使用技巧，主要内容包括：宏的应用技巧、VBE 使用技巧、程序控制流程、Range 对象操作、Worksheet 对象操作、Workbook 对象操作、Application 对象操作、Window 对象操作、Chart 对象操作、...
- VBA进阶-使用ADO制作数据管理系统的知识结构
使用ADO制作数据管理系统的知识结构 ADO介绍 ActiveX Data Objects (ADO) is a high-level, easy-to-use interface to OLE DB. OLE DB is a low-level, high-performance interface to a variety ...
- VBA入门系列讲座
这是一个vba教程，大家有没有更好的，给看一下不知道怎样贴文件，只好这样发了VBA教程1.1VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的...
- VBA中ADO常用方法
VBA中ADO常用方法 ADO常用方法 准备工作 ======== Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB....
- ADO 与 临时表
在这个论坛里第一次接触到ADO，对通过用ADO来获取数据库的数据，对我日常的工作来说真是太有用了，因此慢慢地开始编写一些ADO读取...连接数据库也有多种方法，各种连接字符串又是什么涵义等，这些问题一直困惑着我，对
- excel vba 数据分析
VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一．定义 标识符是一...
- Excel VBA 学习总结 - 通用ADO数据访问模型
Excel VBA 学习总结 - 通用ADO数据访问模型 ADO是基于OLE DB的数据访问技术。它不直接与数据交互，而是把这个任务交给了OLE DB，这么做带来了相当好的可扩展性和适应性。它提供了编程语言和统一数据访问方式；它...
- VBA编程常用语句(转载）
1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不...2、On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息...
- 使用SQLite数据库和Access数据库的一些经验总结
在我的《Winform开发框架》中，可使用多种数据库作为程序的数据源，除了常规的Oracle数据库、SqlServer、MySql数据库，其中还包括了SQLite数据库、Access数据库，后两个数据库都是在单机版程序中常用到的数据库，...
- 如何使用 VBA 和 Office Developer 创建 Office COM 外接程序
组件对象模型 (COM) 外接程序提供一种方法，该方法可以将通用代码集中到一个已编译的动态链接库 (DLL) 中，您可以很容易地在任何 Office 应用程序中实现该库（例如，您可以从 Excel、Word 和 Microsoft Access 访问 ...
- Excel 2003 VBA编程参考
Excel 2003 VBA编程参考关于作者Paul KimmelPaul Kimmel于1990年创立了Software Conceptions公司，并从那时开始设计和创建软件以及编写计算机图书。Paul Kimmel是几本关于VBA、VB、VB.NET、C#、Delphi和C++书籍的...