copy:http://www.jackfeng.com/archives/276/

{-------------------------------------------------------------------------------
过程名:    MakeFileList 遍历文件夹及子文件夹
作者:      SWGWEB
日期:      2007.11.25
参数:      Path,FileExt:string   1.需要遍历的目录 2.要遍历的文件扩展名
返回值:    TStringList

   Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;
       ListBox1.Items:= MakeFileList( 'E:\极品飞车','.*') ;
-------------------------------------------------------------------------------}
function MakeFileList(Path,FileExt:string):TStringList ;
var
sch:TSearchrec;
begin
Result:=TStringlist.Create;

if rightStr(trim(Path), 1) <> '\' then
    Path := trim(Path) + '\'
else
    Path := trim(Path);

if not DirectoryExists(Path) then
begin
    Result.Clear;
    exit;
end;

if FindFirst(Path + '*', faAnyfile, sch) = 0 then
begin
    repeat
       Application.ProcessMessages;
       if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
       if DirectoryExists(Path+sch.Name) then
       begin
         Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));
       end
       else
       begin
         if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
         Result.Add(Path+sch.Name);
       end;
    until FindNext(sch) <> 0;
    SysUtils.FindClose(sch);
end;
end;

------------------------------------------------------------------------------------------------------------------------------------

字符截取函数LeftStr, MidStr, RightStr
这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’i is th’
RightStr(Dstr, 6) := ’e BEST’

~~~~~~~~~~~~~~~~~~~~~~~~~
function RightStr
    (Const Str: String; Size: Word): String;
begin
  if Size > Length(Str) then Size := Length(Str) ;
  RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
    (Const Str: String; From, Size: Word): String;
begin
  MidStr := Copy(Str, From, Size)
end;
function LeftStr
    (Const Str: String; Size: Word): String;
begin
  LeftStr := Copy(Str, 1, Size)
end;

这几个函数经常结合Pos, Length, Copy使用

procedure TForm1.FormCreate(Sender: TObject);

var

  i, MaxWidth: integer;

begin

  MaxWidth := 0;

  for i := 0 to ListBox1.Items.Count - 1 do

  if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then

    MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]);

  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);

end;

（出处：http://www2.delphifans.com/blog /more.asp?name=caixiaoming&id=392）

copy:http://hi.baidu.com/yunfanleo/blog/item/0c51d9cdbc0531550eb34558.html

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以 供大家查询之用：

首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;

事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，
但并不多用，所以这里只对第一个介绍：
function Format(const Format: string; const Args: array of const): string; overload;

Format参数是一个格式字符串，用于格式化Args里面的值的。Args又是什么呢，
它是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。
如以下例子：

Format('my name is %6s',['wind']);
返回后就是my name is wind

现在来看Format参数的详细情况：
Format里面可以写普通的字符串，比如'my name is',但有些格式指令字符具有特殊意义，比如"%6s"格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来
格式化type类型的指令字符，是可选的。

先来看看type,type可以是以下字符：
d 十制数，表示一个整型值
u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时是一个2的32次方减去这个绝对值的数,如：
Format('this is %u',[－2]);
返回的是：this is 4294967294

f 对应浮点数
e 科学表示法，对应整型数和浮点数，比如
Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,等一下再说明如果将数的精度缩小

g 这个只能对应浮点型，且它会将值中多余的数去掉,比如
Format('this is %g',[02.200]);
返回的是：this is 2.2

n 只能对应浮点型，将值转化为号码的形式。看一个例子就明白了
Format('this is %n',[4552.2176]);
返回的是this is 4,552.22

注意有两点，一是只表示到小数后两位，等一下说怎么消除这种情况, 二是，即使小数没有被截断，它也不会也像整数部分一样有逗号来分开的

m钱币类型，但关于货币类型有更好的格式化方法，这里只是简单的格式化,另外它只对应于浮点值
Format('this is %m',[9552.21]);
返回：this is ￥9,552.21

p 对应于指针类型，返回的值是指针的地址，以十六进制的形式来表示
例如：
var X:integer;
p:^integer;
begin
X:=99;
p:=@X;
Edit1.Text:=Format('this is %p',[p]);
end;
Edit1的内容是：this is 0012F548

s 对应字符串类型，不用多说了吧
x 必须是一个整形值，以十六进制的形式返回
Edit1.Text:=Format('this is %X',[15]);
返回是：this is F

类型讲述完毕，下面介绍格式化Type的指令：
[index ":"]这个要怎么表达呢，看一个例子
Format('this is %d %d',[12,13]);
其中第一个%d的索引是0，第二个%d是1，所以字符显示的时候是这样 this is 12 13

而如果你这样定义：
Format('this is %1:d %0:d',[12,13]);
那么返回的字符串就变成了this is 13 12。现在明白了吗，[index ":"] 中的index指示Args中参数显示的顺序还有一种情况，如果这样
Format('%d %d %d %0:d %d', [1, 2, 3, 4])
将返回1 2 3 1 2。

如果你想返回的是1 2 3 1 4，必须这样定：
Format('%d %d %d %0:d %3:d', [1, 2, 3, 4])

但用的时候要注意，索引不能超出Args中的个数，不然会引起异常如
Format('this is %2:d %0:d',[12,13]);
由于Args中只有12 13 两个数，所以Index只能是0或1，这里为2就错了[width] 指定将被格式化的值占的宽度，看一个例子就明白了

Format('this is %4d',[12]);
输出是：this is   12,这个是比较容易，不过如果Width的值小于参数的长度，则没有效果。
如：

Format('this is %1d',[12]);
输出是：this is 12

["-"]这个指定参数向左齐，和[width]合在一起最可以看到效果：
Format('this is %-4d,yes',[12]);
输出是：this is 12   ,yes

["." prec] 指定精度，对于浮点数效果最佳：
Format('this is %.2f',['1.1234]);
输出 this is 1.12
Format('this is %.7f',['1.1234]);
输出了 this is 1.1234000

而对于整型数，如果prec比如整型的位数小，则没有效果反之比整形值的位数大，则会在整型值的前面以0补之
Format('this is %.7d',[1234]);
输出是：this is 0001234]
         
对于字符型，刚好和整型值相反，如果prec比字符串型的长度大则没有效果，反之比字符串型的长度小，则会截断尾部的字符
Format('this is %.2s',['1234']);
输出是 this is 12,而上面说的这个例子：

Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000,怎么去掉多余的0呢，这个就行啦

Format('this is %.2e',[-2.22]);
    
好了，第一个总算讲完了，应该对他的应用很熟悉了吧

///////////////////////////////////////////////////////////////
二 FormatDateTime的用法
他的声明为：

function FormatDateTime(const Format: string; DateTime: TDateTime): string;
overload;

当然和Format一样还有一种，但这里只介绍常用的第一种,Format参数是一个格式化字符串。 DateTime是时间类型。返回值是一种格式化后的字符串,重点来看Format参数中的指令字符

c 以短时间格式显示时间，即全部是数字的表示
FormatdateTime('c',now);
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位
FormatdateTime('d',now);
输出可能为1～31

dd 和d的意义一样，但它始终是以两位来显示的
FormatdateTime('dd',now);
输出可能为01～31

ddd 显示的是星期几
FormatdateTime('ddd',now);
输出为: 星期六

dddd 和ddd显示的是一样的。但上面两个如果在其他国家可能不一样。ddddd 以短时间格式显示年月日
FormatdateTime('ddddd',now);
输出为：2004-8-7

dddddd 以长时间格式显示年月日
FormatdateTime('dddddd',now);
输出为：2004年8月7日

e/ee/eee/eeee 以相应的位数显示年
FormatdateTime('ee',now);
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月
FormatdateTime('m',now);
输出为：8
FormatdateTime('mm',now);
输出为 08
FormatdateTime('mmm',now);
输出为 八月
FormatdateTime('mmmm',now);
输出为 八月

和ddd/dddd 一样，在其他国家可能不同yy/yyyy 表示年
FormatdateTime('yy',now);
输出为 04
FormatdateTime('yyyy',now);
输出为 2004,

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒

t 以短时间格式显示时间
FormatdateTime('t',now);
输出为 10:17

tt 以长时间格式显示时间
FormatdateTime('tt',now);
输出为10:18:46

ampm 以长时间格式显示上午还是下午
FormatdateTime('ttampm',now);
输出为：10:22:57上午

大概如此，如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊 的字符就不会被显示为时间格式啦：
FormatdateTime('"today is" c',now);
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期：
FormatdateTime('"today is" yy-mm-dd',now);
FormatdateTime('"today is" yy\mm\dd',now);
输出为： today is 04-08-07

也可以用":"来分开时间
FormatdateTime('"today is" hh:nn:ss',now);
输出为：today is 10:32:23

/////////////////////////////////////////////////////////////////
三.FormatFloat的用法

常用的声明：
function FormatFloat(const Format: string; Value: Extended): string; overload;

和上面一样Format参数为格式化指令字符，Value为Extended类型为什么是这个类型，因为它是所有浮 点值中表示范围最大的，如果传入该方法的参数比如Double或者其他，则可以保存不会超出范围。

关键是看Format参数的用法
0 这个指定相应的位数的指令。
   比如：
FormatFloat('000.000',22.22);
输出的就是022.220

注意一点，如果整数部分的0的个数小于Value参数中整数的位数，则没有效果如：
FormatFloat('0.00',22.22);
输出的是：22.22

但如果小数部分的0小于Value中小数的倍数，则会截去相应的小数和位数如：
FormatFloat('0.0',22.22);
输出的是：22.2
  
也可以在整数0中指定逗号，这个整数位数必须大于3个，才会有逗号出句
FormatFloat('0,000.0',2222.22);
输出是：2,222.2

如果这样
FormatFloat('000,0.0',2222.22);
它的输出还是：2,222.2

注意它的规律,#和0的用法一样，目前我还没有测出有什么不同。

FormatFloat('##.##',22.22);
输出是：22.00

E 科学表示法，看几个例子大概就明白了
FormatFloat('0.00E+00',2222.22);
输出是 2.22E+03
FormatFloat('0000.00E+00',2222.22);
输出是 2222.22E+00
FormatFloat('00.0E+0',2222.22);
22.2E+2
明白了吗，全靠E右边的0来支配的。
  
这个方法并不难，大概就是这样子了。

上面三个方法是很常用的，没有什么技巧，只要记得这些规范就行了。

总结一下Format的用法:

Format('x=%d',[12]);//'x=12'//最普通
Format('x=%3d',[12]);//'x=12'//指定宽度
Format('x=%f',[12.0]);//'x=12.00'//浮点数
Format('x=%.3f',[12.0]);//'x=12.000'//指定小数
Format('x=%8.2f'[12.0])//'x=12.00';
Format('x=%.*f',[5,12.0]);//'x=12.00000'//动态配置
Format('x=%.5d',[12]);//'x=00012'//前面补充0
Format('x=%.5x',[12]);//'x=0000C'//十六进制
Format('x=%1:d%0:d',[12,13]);//'x=1312'//使用索引
Format('x=%p',[nil]);//'x=00000000'//指针
Format('x=%1.1e',[12.0]);//'x=1.2E+001'//科学记数法
Format('x=%%',[]);//'x=%'//得到"%"
S:=Format('%s%d',[S,I]);//S:=S+StrToInt(I);//连接字符串

我下载的ODAC版本是ODAC_5.70.0.28，下載地址:http://www.delphifans.com/SoftView/SoftView_2131.html

我的Delphi是7.0

   第一步：在odac570src_0.28\Source\Delphi7打开dac70.dpk,然后编译 

   第二步：打开dacvcl70.dpk，然后编译

   第三步：打开dcldac70.dpk，然后编译

   第四步：打开odac70.dpk，然后编译

   第五步：打开odacvcl70.dpk，然后编译（如果你想要创建CLX应用程序的话，那么就要单独编译      OdacClx.pas） 

   第六步：打开dclodac70.dpk，然后编译，然后点击“安装”。

在使用或编译时也会出现这个错误，  解决方法把{$I _TrialIntfOld.inc}注释掉就OK了

　 1 检测当前Windows程序是否被激活：

　 Tapplication类有一个属性——Active，这个属性就可以描述当前运行的程序是否被激活，成为Windows的焦点。检测的代码如下：

	If Application.Active=False then

ShowMessage（’当前窗口没有被激活’）；

　 2 取得当前程序的名称：

　 Tapplication类的EXEName属性可以返回这个可执行程序的完整文件名（包含路径）。实现的代码如下所示：

　 ShowMessage(Application.ExeName);

　 3 改变程序极小化时的标题

如果您细心观察可以发现，一些程序的标题和程序的名称并不一致，尤其是一些英文程序，窗体的标题栏比较长，可以容纳比较多的文字，而在最小化时，往往变成 了很少的几个字母。这中间起作用的就是Tapplication类的Title属性。这个属性决定了程序最小化时的标题，而窗口中标题栏的标题是由 Form的Caption属性来决定的。其代码如下：

	 Form1.Caption:=’ 窗口的标题’;

Application.Title:=’程序的标题’;

　 其实我们也可以在在程序设计时 指定Tapplication类的Title属性值。操作的方法是在开发环境中拉下Project菜单,选择Options菜单时弹出如图1 (略)的对话框。在这个对话框中的Title栏中填写程序的标题一样也可以达到这种效果。并且因为一般的工程文件都是以英文命名的，所以程序运行过程中弹 出的消息框中的标题是英文。但在指定了这个属性之后，这个程序的所有消息窗口的标题都变为Title的值。这就使得程序看起来更加完整。

　 4 指明程序的主窗口

　 Windows系统中的界面都是窗口，但一般来讲有一个主窗口。Tapplication的MainForm属性就可以返回程序的主窗口。

　 5 显示消息框

Delphi有许多显示消息框的函数与过程，比较常用的是ShowMessage，它用起来虽然十分方便，但是却有一个问题，那就是这个消息框的按钮是以 英文显示的。如果要生成一个含有中文显示的按钮就要求助于Tapplication的MessageBox函数了。这个函数的原形如下：

　 function MessageBox(Text, tion: Char; Flags: Longint): Integer;

　 在这个函数中，前两项分别是显示的提示信息和消息窗口的标题，Flags是一个长整值，用来指定按钮的个数及功能。熟悉Delphi的用户可能会注意到，这个函数和Delphi 3所提供的同名函数有一点不同，那不是这个版本中字符串参数都以字符的形式给出，而不再要求将其转化成指针。我们在使用时要注意加以区别。

　 Application.MessageBox(需要存盘吗？,提示信息,MB_OKCANCEL)； 这个语句在运行时显示的样式如图2 (略) 所示。

　 最后就这个函数的返回值作一些说明，实际上这个函数返回的是一个整型的数值，而这个数值被系统指定了具体的含义，比如：按下“确定”按钮时返回的值是“1”，而其它按钮的值列在表 1 中。

　 表 1 按钮的意义及系统中对其定义的值

按钮的意义	按下此按钮时函数返回的值

IDABORT		3

IDCANCEL 	2

IDIGNORE	 5

IDNO		 7

IDOK		 1

IDRETRY		4

IDYES		6

　 6 控制窗口的尺寸

　 一般可以用窗口手柄来调整窗口的尺寸，但是也可以用Application的事件来调整。实现的方法是用以下两个过程：

		Application.Minimized;

Application.Restore;

　 前一个过程用来将程序的主窗口最小化，而后一个过程用来将最小化的窗口恢复到原来的尺寸。

　 7 链接联机帮助文件

　 Application的CurrentHelpFile属性能够指定当前程序所用的联机帮助文件的文件名。这个属性经常与另一个方法联合在一起使用。举例如下：

		Application.HelpFile := 联机帮助文件名;

Application.HelpJump(联机帮助文件的主题’)

　 通过这一命令组合，我们就能使系统弹出一个显示某主题的联机帮助文件。

　 8 在程序运行时动态地创建窗口

　 一般情况下，窗口是在设计时加入到工程项目中的，但是有时也需要我们在程序运行时动态地加入窗口，这就要用到Application 的CreateForm过程，举例如下：

		Form3:Tform3; //声明窗口类

Application.CreateForm(TForm3, Form3); //创建窗口

　 9 结束程序

　 虽然我们可以用关闭主窗口的方法来关闭一个程序，但是更好的办法是用Application的Terminate过程。它能够起到更彻底地关闭程序的效果。

　 10 Destroy 属性.

虽然Delphi提供了这一属性,但是并不提倡使用它,如果要终结程序就要调用Terminate过程，而Destroy过程一般是用来在程序发生悬挂时 来退出程序时才调用，有些类似Windows中的结束任务功能。它不仅能关闭程序实例本身，而且还能释放程序所占用的资源，能够达到将程序彻底清除出系统 的目的。

CnWizards 是 CnPack 项目组的主力产品之一，中文全称是 CnPack IDE 专家包，
英文全称是 CnPack IDE Wizards，简称 CnWizards。CnWizards 是一组集成在
Delphi/C++Builder/BDS 的 IDE 中，用于增强 IDE 功能、提高 IDE 的可用性及
开发效率的免费、开放源码工具。

==================================
二、CnWizards 主要面对哪类用户群？
==================================

CnWizards 产品主要面对使用 Delphi 5 6 7、C++Builder 5 6 与 BDS 2005
2006、RAD Studio 2007 2009 2010 的开发者。
CnWizards 目前的发布版本包括简体中文、繁体中文、英三种语言。

注：由于编译的兼容性问题，对于 Delphi 2009，CnWizards 只支持其正式版即
12.0.3170.16989 或以上版本，而不支持低于此版本的内测版。如需要在内测版
中安装 CnWizards，需要获取 CnWizards 的代码自行编译。

==============================
三、CnWizards 主要有哪些功能？
==============================

CnWizards 在 Delphi / C++Builder / BDS 的 IDE 中提供了十多个可独立设置的
子专家，数十种功能，主要包括：

* 代码输入助手
* 代码结构匹配高亮与画线
* 增强的单元窗体列表功能
* TabOrder 设置专家
* 窗体设计器的浮动工具栏
* MSDN 帮助集成功能
* 代码编辑器工具栏与功能扩展
* 工程相关的扩展功能
* 组件面板多行显示支持
* 窗体置顶与折叠功能
* 源代码统计功能
* 引用单元清理
* 其他大量增强与改进

关于界面截图可参考：http://www.cnpack.org/images/cnwizards.gif
此外，CnWizards 还附带下列独立运行的小工具：

* CnWizards 设置导入导出工具
* DFM 窗体转换工具
* IDE 配置备份/恢复和清除打开文件历史工具
* 调试信息输出单元 CnDebug 与调试信息查看器 CnDebugViewer
* ASCII 字符表
* IDE 外部专家管理工具
* 源码模块关系分析工具

CnWizards 以与开源协议兼容的 CnPack 协议发布，因而是开源、免费的。
任何个人或商业团体可以免费使用 CnWizards，无需支付任何费用。

======================
四、关于 CnPack 开发组
======================

CnPack 是由互联网上一群中国程序员开发的开放源码的自由软件项目，当前主要
的工作成果包括 CnPack 组件包、CnWizards 专家包以及 CVSTracNT 错误跟踪系
统等。2009 年 CnPack 开发组成为了 Embarcadero 的技术合作伙伴。
CnPack 开发团队目前规模有 260 余人，并且还在不断发展壮大中。

CnPack 网站：http://www.cnpack.org
CnPack 论坛：http://bbs.cnpack.org
每日构建版： http://www.cnpack.org/downbuilds.php
管理员信箱： master@cnpack.org

======================
五、更新记录
======================

0.9.5 以 Bug 修复为主，较 0.9.4 的更新：

* 高亮当前标识符增加前景色与边框色的设置。
* 引用单元清理修正对inline处理失败的问题。
* 增加将IDE设置为单核方式运行的选项。
* 修正BDS的嵌入式设计界面编辑器工具栏设置未保存的问题。
* 在BDS的嵌入式设计界面增加编辑器工具栏。
* 编辑器扩展修正复制并追加功能在D2010下导致乱码的问题。
* 其它的错误修正和改进。

轉:http://hi.baidu.com/graspa/blog/item/d17d928b4ec949d0fc1f1007.html/cmtid/196abb648679f0fcf73654ae

一、有必要了解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.