delphi存储图片路径

用到的控件有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.picture.loadfromfile(opendialog1.filename);

photopath:='photo/'+edit1.text+'.jpg';

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.add('insert into 学生信息(学生证号,照片) values ('''+edit1.text+''','''+photopaht+''')');

adoquery1.execsql;

image1.picture.savetofile(workpath+photopath);

end;