在
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类的}