我想通过image1.Picture.LoadFromFile(qm);
取出硬盘上的图象文件,其中QM是带路径的文件名,我想在窗口一打开的时候就将图片装入,可是如果硬盘上的文件夹里的该图象文件不在了,上面的语句会抱找不到该文件的错误,请问怎么判断是否存在该文件,如果不存在怎么装如默认文件!

解决方案 »

  1.   

    if not FileExists(FileName) then
    ....
      

  2.   

    if FileExists(文件) then
    begin
      //加载图片
    end
    else begin
      //装默认文件
    end;
      

  3.   

    if FileExists(文件) then
    begin
      //加载图片
    end
    else begin
      //装默认文件
    end;
      

  4.   

    缺省的文件设计时就放在image1中,程序运行时首先判断QM是否存在如果存在就调用
    image1.Picture.LoadFromFile(qm);如果文件不存在就显示缺省的文件
      

  5.   

    if FileExists(文件) then
    begin
      //加载图片
    end
    else begin
      //装默认文件
    end;
      

  6.   

    另类方法:
    try 
      image1.Picture.LoadFromFile(qm);
    except
      image1.Picture.LoadFromFile(默认图片);
    end;
      

  7.   

    jpyc(九品御厨-为delphi学ASP.NE) ( )
    的简单但执行时还是抱没文件!
      

  8.   

    我试过,没什么问题呀。不报错。你是想报还是不想报?报:
    try 
      image1.Picture.LoadFromFile(qm);
    except
      showmessage('错误!');
      image1.Picture.LoadFromFile(默认图片);
    end;
      

  9.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      try
        raise Exception.Create('Error!');
      except
      end;
    end;
     这个都不报,你那个也不应该啊.