很多图片的快速定位问题 (100分)(100分)

我有很多的图片,100个image,我能不能,用一个变量如X,如果X=30,那我就能把图片,放到image30里面,或有没有更好的方法.谢谢!

说清楚一点,就是我有 image1组件到image100或更多的组件,我想用快速的定位法,把图片放进对应的Image组件里面,如我有变量X=30,我就把对应的图片放进imag30组件里面,高手帮帮忙,有没有更好的方法.和思路呢?

你在窗体Create时将
var
i,j:integer;
begin
for i:=1 to 100 do
begin
for j:=0 to self.ComponentCount-1 do
begin
if self.Components[j] is TImage then
if rightstr((self.Components[j] as TImage).Name,length((self.Components[j] as TImage).Name)-5)=i then
(self.Components[j] as TImage).Tag:=i;
end;
end;
end;
你也可以先设置好！每个Image的tag，也可以不做以上的步骤（不过Image的名字要有规律比如Image001...Image100）
最后
function ASetImage(Value:integer);
var j:integer;
if self.Components[j] is TImage then
if rightstr((self.Components[j] as TImage).Name,length((self.Components[j] as TImage).Name)-5)=Value then
(self.Components[j] as TImage).Picture.Bitmap.Assign();

我如果image不是动态创建,而是在设计时已经放好呢?这样也行吗？

当前可以！我不是给你写了两种方法吗？
这种我都做过好多次了！
如果不行，你把你的窗体发过我，我给你写好！再发给你！
我的QQ：76431082

呵呵.....THANKS