求能够'读取'和'修改' ini文件内容的完整代码或bean

bbshero 2003-08-20 07:10:16

一定要可以'读取'和'修改' ini文件的bean
不是的话请别浪费时间!!!!!!
分不够还可以加!

...全文

36 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

FCBFighter 2003-08-20

打赏
举报

很抱歉--我看错了版区,复错了对象.:-)
恕罪.

FCBFighter 2003-08-20

打赏
举报

//FrmMain.IniName=你的ini文件名,由你指定.
附生成的ini格式:

[系统设置]
本机类别=后台
远程目录=\\share\Data

FCBFighter 2003-08-20

打赏
举报

var
Myini:TiniFile;
-------
procedure TFrmSystemSet.FormActivate(Sender: TObject);//读取
begin
Myini:=TiniFile.Create(FrmMain.IniName);
if Myini.ReadString('系统设置','本机类别','')='前台' then
RadioButton1.Checked:=True;
if Myini.ReadString('系统设置','本机类别','')='后台' then
RadioButton2.Checked:=True;
Edit1.Text:=Myini.ReadString('系统设置','远程目录','');
Edit5.Text:=Myini.ReadString('系统设置','系统年份',Formatdatetime('yyyy',now));
end;

-------------
procedure TFrmSystemSet.BitBtn1Click(Sender: TObject);//修改
begin
if RadioButton1.Checked=True then
Myini.WriteString('系统设置','本机类别','前台');
if RadioButton2.Checked=True then
Myini.WriteString('系统设置','本机类别','后台');
Myini.WriteString('系统设置','远程目录',Trim(Edit1.Text));
MessageDlg('更新成功，注意不能设置错误哦！'+#13+#13+
'下次启动程序时生效！',mtInformation,[mbOK],0);
end;