Question

delphi中如何把图片保存到特定的位置

或者说savePictureDialog这个控件怎么使用？例如我把E盘的一张图片用OpenPictureDialog控件打开了预览，然后该怎么保存到F盘中？ 还有一个问题 有四行代码（随意）我要先运行第一行，第一行是一个判断句式，如果为假的时候则第二行到第四行都不运行并返回 例如我做了一个添加按钮，添加edit1~4中的内容到数据库中，先判断edit1~4是否为空，如果为空则提示请填写，如果都填了就可以实现添加了 以上问题请高手赐教

Answer 1

问题1：举个例子，比如你用OpenDialog打开了图片并显示到Image控件上，单击保存按钮(调用SaveDialog控件实现自定义路径的存储)另存，代码如下：procedure TForm1.BtnSaveClick(Sender: TObject);
begin
SaveDialog1.DefaultExt :='.BMP';
SaveDialog1.Execute ;
Image1.Picture.SaveToFile(SaveDialog1.FileName );
end;问题2： if (Edit1.Text ='') or (Edit2.Text ='') or (Edit3.Text ='') or (Edit4.Text ='') then begin Showmessage('相关信息不能为空！'); exit; end else begin ...//此处填写你的相关数据插入操作代码 end;

Answer 2

1. if openpicturedialog.1exceute then
Image1.picture.loadfromfile(openpicturedialog1.filename); //打开，显示 if OpenPictureDialog1.exceute then
Image1.picture.savetofile(OpenPictureDialog1.filename); //保存2.if xxx=true thenbegin 第二行 第三行 第四行 exit;end;3.if edit1.text='' thenbegin showmessage('1为空'); exit;end;if edit2.text='' thenbegin showmessage('2为空'); exit;end;...

Answer 3

1. if openpicturedialog.exceute then
copyfile(,);
2.table1.['Paddress']:= ExtractFileName(OpenpictureDialog1.FileName);