Delphi读写ini文件详解

关注

转载最新推荐文章于 2025-07-28 14:40:02 发布 1.9k 阅读 AI 写同款· GEO 优化 ›

Delphi INI文件读取(1) delphi读取ini文件 INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件一．INI文件的结构 [小节名]ini文件关键字阅读详情

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;