关于写ini的问题!

Question

  myini:=TIniFile.Create(ExtractFileDir(ParamStr(0))+'\aa.ini');
  myini.WriteInteger('1','xiagao',StrToInt(Edit_lujing.Text));这样能改一个存在的ini文件 请问如果我一点击保存这次设置 怎么出来一个类似ie下载的对话框来保存一个新的ini呀? 谢谢!

Answer 1

保存完后，复制一个新的，要不就Create时换个名字，但这样原有信息就访问不了了

Answer 2

var
  vDialog: TSaveDialog;
begin
  vDialog := TSaveDialog.Create;
  try
    if vDialog.Execute then
    begin
//...
      myini:=TIniFile.Create(vDialog.FileName);
      myini.WriteInteger('1','xiagao',StrToInt(Edit_lujing.Text)); 
//...
    end;
  finally
    vDialog.Free;
  end;
end;

Answer 3

嗯，与ini读写无关，是选择一个目标文件的问题

Answer 4

vDialog := TSaveDialog.Create;
这句编译不过呀

Answer 5

这个是标准对话框，需要uses dialog单元