用Dlephi 6读写INI文件

杜伟 
2001年 31期

　　熟悉Windows的读者肯定对INI文件不会感到陌生。一般INI文件中保存有应用程序的初始化设置。当我们在编写程序时需要把一些数据保存下来，通常的方法就是建立一个INI文件。下面我们就来看看如何用Delphi 6读写INI文件。
　　　　新建一个应用程序，加入两个按钮，分别命名为BTN_READ和BTN_WRITE，并将Caption改为“读取数据”及“写入数据”。然后，在Uses中加入inifiles单元。
　　　　双击BTN_WRITE按钮，输入“写入数据”的程序代码：
　　　　procedure TForm1.BTN_WRITEClick Sender: TObject;
　　　　var
　　　　vIniFile: TIniFile; //声明一个TiniFile对象
　　　　begin
　　　　//创建或打开一个INI文件
　　　　vIniFile:=TIniFile.Create（ExtractFilePath（ParamStr（0））+＇sample.ini＇）;　
　　　　//如果在Create函数中写成Create（＇sample.ini＇），那么程序默认将文件创建在Windows目录中。ExtractFilePath函数用于获取文件路径，ParamStr是程序启动时所保存的参数，（0）里存储的则是当前应用程序的完整路径。
　　　　//ExtractFilePath（ParamStr（0））+＇sample.ini＇）则是在当前应用程序所在目录中创建Sample.ini文件。
　　　　vIniFile.WriteString（＇我的程序＇，＇作者＇，＇伟博＇）; //写入字符串数据
　　　　vIniFile.WriteString（＇我的程序＇，＇版本＇，＇1.0＇）;　
　　　　vIniFile.WriteInteger（＇程序数据＇，＇Top＇，0）; //写入整型数据
　　　　vIniFile.WriteInteger（＇程序数据＇，＇Left＇，5）;　
　　　　vIniFile.Free; //释放对象
　　　　end;
　　　　上面的程序代码则实现了INI文件的创建及数据的写入。按F9键运行程序，单击“写入数据”按钮，这时程序则创建了Sample.ini文件并向里面写入了数据。现在我们打开Sample.ini文件就可以看到文件中的内容了。
　　　　下面看看如何从刚才的Sample.ini文件中取出这些数据。
　　　　在Sample.ini文件中保存了窗体的Top及Left值，那么我们让程序在启动的时候读取这个值，然后再将值赋给窗体的Top及Left。在Form1的OnShow事件中输入下面的程序代码：
　　　　procedure TForm1.FormShow（Sender: TObject）;
　　　　var
　　　　vIniFile: TIniFile;//声明一个TiniFile对象
　　　　begin
　　　　//打开一个INI文件
　　　　vIniFile:=TIniFile.Create（ExtractFilePath（ParamStr（0））+＇sample.ini＇）;
　　　　Form1.Top:=vIniFile.ReadInteger（＇程序数据＇，＇Top＇，0）;//读取Top中的值并赋给Form1.Top
　　　　Form1.Left:=vIniFile.ReadInteger（＇程序数据＇，＇Left＇，0）; //读取Left中的值并赋给Form1.Left
　　　　//ReadInteger（＇程序数据＇，＇Top＇，0）中的0是默认值，当程序无法读取＇程序数据＇中＇Top＇的值时，则会返回默认的值（这里是0，也可以设置为其它的值）。
　　　　vIniFile.Free;//释放对象
　　　　end;
　　　　双击BTN_READ（读取数据）按钮，写入下面的代码：
　　　　procedure TForm1.BTN_READClick（Sender:TObject）;
　　　　var
　　　　vIniFile: TIniFile; //声明一个TiniFile对象
　　　　begin
　　　　//打开一个INI文件
　　　　vIniFile:=TIniFile.Create （ExtractFilePath（ParamStr（0））+＇sample.ini＇）;　
　　　　ShowMessage（vIniFile.ReadString（＇我的程序＇，＇作者＇，＇＇）+#10+#13+vIniFile.ReadString（＇我的程序＇，＇版本＇，＇＇））;　　
　　　　//读取数据，#10+#13代表回车
　　　　vIniFile.Free;//释放对象
　　　　end;
　　　　OK！现在我们已经可以使用Delphi 6轻松地读写INI文件了。 
 