在uses中引入 IniFiles;{本例在{$R *.dfm}下面使用uses IniFiles;将会 出现 Undeclared identifier:'IniFile'错误}
private
myIniFile: TIniFile;
{声明部分,也可在implementatio上面的Var下面声明}
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;
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;
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;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(myIniFile);
end;
{注读取的ReadString【数值】就是写入的数值,所以ReadString的数值使用WriteString写入数值的变量
在create读取文件
在close保存文件或提示是否保存
使用Ini文件读取Memo类的控件会出现不能把内容读取 所不建议用Ini读Memo类的}