怎样取得photo文件夹的图片张数(50分)

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #1

非常感谢各位，我的积分较少，能否能把<br>for i:=0 to Form1.ComponentCount-1 do<br>怎样取得photo文件夹的图片张数，改成：<br>for i:=0 to 图片张数　do

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #2

procedure Tform1.loadpic;<br>var i:integer;<br>begin<br> &nbsp;for i:=0 to Form1.ComponentCount-1 do<br> &nbsp;begin<br> &nbsp; &nbsp;if form1.Components is TImage then<br> &nbsp; &nbsp; &nbsp;TImage(form1.Components).Picture.LoadFromFile('photo/fc00000'+inttostr(i)+'.jpg');<br> &nbsp;end;<br>end;

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #3

需要的时候，loadpic;就可以了

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #4

你最好加入个容错代码，

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #5

标识Image的tag和图片的最后数字相通比较好。 楼上的代码，如果 ComponentCount＝10而image只有5个， 图片也只有5个。 &nbsp;'photo/fc00000'+inttostr(i)+'.jpg'肯定出错。

 

L

lxw5214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #6

同意使用tag属性，本人也是这样动态使用控件的

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #7

你先判断有没有哪个文件三<br>if FileExist(filename) then

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #8

其实这样也就可以解决，如果你的Timage是按顺序来创建的话：<br>procedure Tform1.loadpic;<br>var i,k:integer;<br>begin<br>k:=0;<br> &nbsp;for i:=0 to Form1.ComponentCount-1 do<br> &nbsp;begin<br> &nbsp; &nbsp;if form1.Components is TImage then<br> &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; k:=k+1; &nbsp;//用它来存放Timage的序号<br> &nbsp; &nbsp; &nbsp; TImage(form1.Components).Picture.LoadFromFile('photo/fc00000'+inttostr(k)+'.jpg');<br> &nbsp; &nbsp; &nbsp; end;<br> &nbsp;end;<br>end;

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #9

非常感谢各位，我的积分较少，能否能把<br>for i:=0 to Form1.ComponentCount-1 do<br>怎样取得photo的张数，改成：<br>for i:=0 to 图片张数　do

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #10

曲线救国，问题解决：<br>form1.FileListBox1.ApplyFilePath('photo');<br>form1.Caption:=inttostr(form1.FileListBox1.Count );<br>发分了[]　<br>　　　　　　　　　　　　　　　　谢谢各位！！！

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #11

多人接受答案了。