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 发布