Delphi中的Ini文件的读写（解释信息手写的）

 

在 uses中引入 IniFiles; {本例在{$R *.dfm}下面使用 uses IniFiles;将会 出现 Undeclared identifier: 'IniFile'错误}

 

private
    myIniFile: TIniFile;
{声明部分,也可在implementatio上面的Var下面声明}

 

//创建并写一个IniFile文件
procedure TForm1.Button1Click(Sender: TObject); {保存信息到ini文件}
begin 
    myIniFile :=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Config.ini'); //打开Ini文件，如果文件不存在 程序会创建一个文件
     try
     myIniFile.WriteString( 'SaveOptions', 'Edit1.text',Edit1.Text); //写入字符串类型
     myIniFile.WriteInteger( 'SaveOptions', 'Edit2.text',strtoint(Edit2.Text)); //写入整型
     myIniFile.WriteBool( 'SaveOptions', 'CheckBox1.checked',CheckBox1.checked); //写入布尔类型
     Finally
     myIniFile.Free; // 释放myinifile
     end;
end;

 

//读取一个IniFile文件
procedure TForm1.Button2Click(Sender: TObject); {从ini文件读取信息}
begin
  myIniFile :=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Config.ini');
     try
    Edit1.text :=myIniFile.ReadString( 'SaveOptions', 'Edit1.text',Edit1.Text); //读取字符串类型
    Edit2.Text := myIniFile.ReadString( 'SaveOptions', 'Edit2.text',Edit2.Text); //读取字符串类型
    CheckBox1.checked := myIniFile.ReadBool( 'SaveOptions', 'CheckBox1.checked',CheckBox1.checked); //读取布尔类型
     Finally
    myIniFile.Free; // 释放myinifile
     end;
end;

 

//释放Ini文件
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(myIniFile);
end;

{注读取的ReadString【数值】就是写入的数值，所以ReadString的数值使用WriteString写入数值的变量
在create读取文件
在close保存文件或提示是否保存
使用Ini文件读取Memo类的控件会出现不能把内容读取 所不建议用Ini读Memo类的}

 

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/26/2518894.html