摘要： 2008-06-23 08:55 167人阅读 评论(0) 收藏 举报用到的控件有adoconnection,adoqury,edit,image,opendialog.还需要在工程存储的文件夹下有一个photo的文件夹,用来挑选图片和保存图片.procedure TForm1.Image1Click(Sender: TObject);var workpath:string; photopath:string;begin workpath:=ExtractFilePath(application.exename); if opendialog1.execute then image1.pict 阅读全文