为什么Openpicturedialog 和 tstringlist 不能兼用~~？ 详细内容看里面

Question

button1 代码：  // 就是简单的打开一张位图
  
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.OpenPictureDialog1.Filter := '*.bmp|*.bmp';
  self.DoubleBuffered:=true;
  if openpicturedialog1.Execute then
  image1.Picture.Bitmap.LoadFromFile(openpicturedialog1.FileName);
end;button2 代码： // 想连接一个文本文档
   
procedure TForm1.Button2Click(Sender: TObject);
var
  tip:tstringlist;
begin
  tip:=tstringlist.Create;
  tip.LoadFromFile('1.txt');
end;问题是这样的，先点BUTTON2 不会出错，但是先点了button1 装入了一张图之后，再点button2就出错
了，请问到底什么地方出错了呀，要修改什么？

Answer 1

//樓主在下面的事件中，tip沒有釋放
procedure TForm1.Button2Click(Sender: TObject);
var
  tip:tstringlist;
begin
  tip:=tstringlist.Create;
  try
    tip.LoadFromFile('1.txt');
  finally
    tip.free;
  end;  
end;

Answer 2

你的 1.txt 是否和图片放在同一个位置。 如果放在同一个位置就没事了。 因为找同一个目录，
否则的话你可以用全称得文件名。