第一------第六的图片都已做好!!多谢各位大大!!!
解决方案 »
- 一个form小问题!
- 关于Chart控件图表生成后,如何导出图片
- 东进语音卡编程:聊天室。解决问题另加280分!绝不食言!!在线等!
- 关于PageControl的标签TabSheet?
- delphi中怎么找不到打印报表控件,重新安装也不行,在线等待
- SQLServer表中有八个Chat型字段,怎样用SQL语句汇总出符号条件的数据的个数?
- delphi中有哪个控件没有焦点时是平的,鼠标移上去变成3D的(就是凸上来)
- 关于一个类的继承问题
- [急!!]如何知道DBGrid中和记录数?
- 哪里有EtCell报表控件的下载呀?
- 千万不要对女孩子太好!因为她们总觉得你是别有居心的。
- 大家好!请各位大侠帮帮忙,本人万分感谢!!!!正当回贴有分!!
var
I: Integer;
PicturePath: String;
begin
//排序
for I:=1 to 6 do
begin
PicturePath:='C:\Picture\'+IntToStr(I)+'.jpg';
try
TImage(FindComponent('Image' + IntToStr(I))).Picture.LoadFromFile(PicturePath);
except
Showmessage('指定的图片不存在');
end;
end;
end;