var
s1: Variant;
begin s1 := Edit2.Text+':\'+Edit1.Text+'\'+Edit3.Text+ '.jpg';
image1.Picture.LoadFromFile(Trim(s1));
end;
s1: Variant;
begin s1 := Edit2.Text+':\'+Edit1.Text+'\'+Edit3.Text+ '.jpg';
image1.Picture.LoadFromFile(Trim(s1));
end;
调试欢乐多
请你帮写一下上面这个程序的源程序,及注意的问题。另外在报表在怎样读取显示的这个图象文件,并把他显示在报表上,打印出来能否给我写的清详细一些,按上面的例子