封装 INI 文件读写函数

2024-02-19 14:47:16
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;

[delphi] view plaincopy

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);

[delphi] view plaincopy

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;
码农公寓

相关文章
