怎样使用opendialog控件

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 if openpicturedialog1.execute then
 begin
  dm.adotable1.Edit;
  DBImage1.Picture.LoadFromFile(openpicturedialog1.FileName);
 end;                           打开一图片！

解决方案 »

  1.   

    你这一段程序通常只能打开文本类型文件
    你加一条件判断的下半句
    Else showmessage('找不到文件,打开失败',0) 另外需要在if 语句外面加一个for 循环才能完全读取文件内容.另外opendialogs 还有一个属性专门针对未找到文件的提示.
    跟savediaglogs存储文件时碰到同名文件提示一样,你可以试着改变其属性为
    TRUE一试.
      

  2.   

    对！
    需要加一个else语句和for循环语句