用Dlephi 6读写INI文件
?牐犘陆ㄒ桓鲇τ贸绦颍尤肓礁霭磁ィ直鹈狟TN_READ和BTN_WRITE，并将Caption改为“读取数据”及“写入数据”。然后，在Uses中加入inifiles单元。
?牐犓鰾TN_WRITE按钮，输入“写入数据”的程序代码：
?牐爌rocedure TForm1.BTN_WRITEClick Sender: TObject;
?牐爒ar
?牐爒IniFile: TIniFile; //声明一个TiniFile对象
?牐燽egin
?牐?//创建或打开一个INI文件
?牐爒IniFile:=TIniFile.Create（ExtractFilePath（ParamStr（0））+＇sample.ini＇）;?牔?
?牐?//如果在Create函数中写成Create（＇sample.ini＇），那么程序默认将文件创建在Windows目录中。ExtractFilePath函数用于获取文件路径，ParamStr是程序启动时所保存的参数，（0）里存储的则是当前应用程序的完整路径。
?牐?//ExtractFilePath（ParamStr（0））+＇sample.ini＇）则是在当前应用程序所在目录中创建Sample.ini文件。
?牐爒IniFile.WriteString（＇我的程序＇，＇作者＇，＇伟博＇）; //写入字符串数据
?牐爒IniFile.WriteString（＇我的程序＇，＇版本＇，＇1.0＇）;?牔?
?牐爒IniFile.WriteInteger（＇程序数据＇，＇Top＇，0）; //写入整型数据
?牐爒IniFile.WriteInteger（＇程序数据＇，＇Left＇，5）;?牔?
?牐爒IniFile.Free; //释放对象
?牐爀nd;??
?牐犐厦娴某绦虼朐蚴迪至薎NI文件的创建及数据的写入。按F9键运行程序，单击“写入数据”按钮，这时程序则创建了Sample.ini文件并向里面写入了数据。现在我们打开Sample.ini文件就可以看到文件中的内容了。
?牐犗旅婵纯慈绾未痈詹诺腟ample.ini文件中取出这些数据。
?牐犜赟ample.ini文件中保存了窗体的Top及Left值，那么我们让程序在启动的时候读取这个值，然后再将值赋给窗体的Top及Left。在Form1的OnShow事件中输入下面的程序代码：
?牐爌rocedure TForm1.FormShow（Sender: TObject）;
?牐爒ar
?牐爒IniFile: TIniFile;//声明一个TiniFile对象
?牐燽egin
?牐?//打开一个INI文件
?牐爒IniFile:=TIniFile.Create（ExtractFilePath（ParamStr（0））+＇sample.ini＇）;??
?牐燜orm1.Top:=vIniFile.ReadInteger（＇程序数据＇，＇Top＇，0）;//读取Top中的值并赋给Form1.Top
?牐燜orm1.Left:=vIniFile.ReadInteger（＇程序数据＇，＇Left＇，0）; //读取Left中的值并赋给Form1.Left
?牐?//ReadInteger（＇程序数据＇，＇Top＇，0）中的0是默认值，当程序无法读取＇程序数据＇中＇Top＇的值时，则会返回默认的值（这里是0，也可以设置为其它的值）。
?牐爒IniFile.Free;//释放对象
?牐爀nd;
?牐犓鰾TN_READ（读取数据）按钮，写入下面的代码：
?牐爌rocedure TForm1.BTN_READClick（Sender:TObject）;
?牐爒ar
?牐爒IniFile: TIniFile; //声明一个TiniFile对象
?牐燽egin
?牐?//打开一个INI文件
?牐爒IniFile:=TIniFile.Create （ExtractFilePath（ParamStr（0））+＇sample.ini＇）;?牔?
?牐燬howMessage（vIniFile.ReadString（＇我的程序＇，＇作者＇，＇＇）+#10+#13+vIniFile.ReadString（＇我的程序＇，＇版本＇，＇＇））;?牐牔?
?牐?//读取数据，#10+#13代表回车
?牐爒IniFile.Free;//释放对象
?牐爀nd;
?牐燨K！现在我们已经可以使用Delphi 6轻松地读写INI文件了。