极其难的问题?这段代码在win2000没下任何问题,可以在XP中出错?怎么解决?

Question

这段代码在win2000没下任何问题,可以在XP中出错?怎么解决?
if OpenDialog1.Execute then
  begin
   image1.Visible:=true;
   image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end;

Answer 1

设置断点，看是哪句错误吧。是不是Image1.picture.loadfromfile出错啊？
另外一个办法：
var
  s: string;
begin  if OpenDialog1.execute then
  begin
    s:=OpenDialog1.FileName;
    image1.visible:=true;
    image1.picture.loadfromfile(s);
  end;如果是在OpenDialog1的execute就出错的话，建议把OpenDialog控件从Form上删除，重新放一个试试。