封装 INI 文件读写函数

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; uses IniFiles; //简单数据类型 TSimpleType = (stInt, stFloat, stString, stDateTime, stDate, stTime, stBoolean); function ReadIniValue(const FileName, Section, Name: string; SimpleType: TSimpleType; DefaultValue: Variant): Variant; // 读Ini文件的函数 // FileName:Ini文件名 // Section:节点 // Name:字段名 // SimpleType:简单数据类型 // DefaultValue:默认值 // 返回变体类型 begin with TIniFile.Create(FileName) do try if SimpleType = stString then Result := ReadString(Section, Name, DefaultValue) else if SimpleType = stInt then Result := ReadInteger(Section, Name, DefaultValue) else if SimpleType = stFloat then Result := ReadFloat(Section, Name, DefaultValue) else if SimpleType = stDateTime then Result := ReadDateTime(Section, Name, DefaultValue) else if SimpleType = stDate then Result := ReadDate(Section, Name, DefaultValue) else if SimpleType = stTime then Result := ReadTime(Section, Name, DefaultValue) else if SimpleType = stBoolean then Result := ReadBool(Section, Name, DefaultValue); finally Free; end; procedure WriteIniValue(const FileName, Section, Name: string; Value: Variant; SimpleType: TSimpleType); // 写INI文件的函数 // FileName:Ini文件名 // Section:节点 // Name:字段名 // Value:字段值 // SimpleType:简单数据类型 begin with TIniFile.Create(FileName) do try if SimpleType = stString then WriteString(Section, Name, VarToStr(Value)) else if SimpleType = stInt then WriteInteger(Section, Name, Value) else if SimpleType = stFloat then WriteFloat(Section, Name, Value) else if SimpleType = stDateTime then WriteDateTime(Section, Name, VarToDateTime(Value)) else if SimpleType = stDate then WriteDate(Section, Name, VarToDateTime(Value)) else if SimpleType = stTime then WriteTime(Section, Name, VarToDateTime(Value)) else if SimpleType = stBoolean then WriteBool(Section, Name, Value); finally Free; end; end; 调用范例： WriteIniValue('c:/config.ini','constring','db','aaa',stString); WriteIniValue('c:/config.ini','constring','port',1,stInt); ReadIniValue('c:/config.ini','constring','dbname',stString,'misdate'); ReadIniValue('c:/config.ini','constring','connect',stInt,-1); WriteIniValue('c:/中国烂鞋.ini','锅家队','猪教练','郭十二',stString); WriteIniValue('c:/中国烂鞋.ini','锅家队','平均罚球',1,stInt); ReadIniValue('c:/中国烂鞋.ini','锅家队','猪教练',stString,'郭12'); ReadIniValue('c:/中国烂鞋.ini','锅家队','平均罚球',stInt,-1);

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;