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

Question

import java.util.Properties;具体查文档 ------------------------------------------------------
           我们还年轻牛奶会有的奶牛也会有的 
             可天天在 csdn 混这些会有吗 ??

Answer 1

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;

Answer 2

//FrmMain.IniName=你的ini文件名,由你指定.
附生成的ini格式:[系统设置]
本机类别=后台
远程目录=\\share\Data