Opendialog的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
      Opendialog1.Filter:='数据库(ID.DB)|*.DB|所有文件(*.*)|*.*';
      OpenDialog1.OptionsEx := [ofExNoPlacesBar];
   if Opendialog1.Execute then
      IDDB1.Text:=Opendialog1.FileName;
      jindu.Position:=0;
end;procedure TForm1.Button2Click(Sender: TObject);
var
ini:Tinifile;
begin
ini:= Tinifile.Create('.\config.ini');
ini.WriteString('SERVER','IDDB',IDDB1.Text);
application.MessageBox('已完成！','提示',64);
end;为什么我保存不了IDDB1中的文件路径？？工具刚启动的时候，不要按Button1，无论在IDDB1中输入什么内容，都能保存。只要按动过Button1选择文件，Button2下面的就全失效了。高人指点一下。

Answer 1

可能选择文件后，路经变了，而你打开INI文件使用的是相对路经

Answer 2

建议使用绝对路径：
如：ExtractFilePath(Application.FileName) + 'config.ini';

Answer 3

楼主Button2Click写INI前
showmessage(IDDB1.text)就知道为什么会这样了
工作路径