传说中DELPHI的BUG？DELPHI7-DELPHI2009都有

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit1.Text:=OpenDialog1.FileName;
listbox1.Items.Strings[0]:=OpenDialog1.FileName;end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('server.ini');
end;
上面的代码，直接执行BUTTON2.click事件.能生成SERVER文件，但如果执行了BUTTON1.CLICK事件，再执行BUTTON2.CLICK事件，就不成功，没有生成SERVSER文件，不知道是哪的问题

Answer 1

不要有事没事就说是什么bug，先想想是不是自己的问题。
listbox1.Items.SaveToFile('server.ini'); \\这里没有指定路径，会保存在当前系统目录下，不是没有保存，而是你没有找到。
改下就好了，如：listbox1.Items.SaveToFile('c:\server.ini'); 
if OpenDialog1.Execute then \\这里一执行，看到的就是当前系统目录了。

Answer 2

listbox1.Items.SaveToFile('.\server.ini'); 

Answer 3

默认情况下,程序启动以前当前路径为程序所在的路径,而TOpenDialog/TSaveDialog执行后会改变当前路径(Current Directory),当然也可以对相应的属性进行设置,使之不改变当前路径.

Answer 4

楼主真搞笑，把我不懂Delphi的也骗进来了，赶紧结贴吧！