如何定位控件

Question

现在有6个image(image1-image6),要装载query中的图片,但是query中记录数不定(<=6).比如有三条记录,就在image1-3中装载他.现在问题是我不能确定哪张图片.也就是比如image1,我该如何用i来确定他呢.for i=0 to recordcount-1 do showphoto(image[i]);//这个image[i]怎么办end

Answer 1

var
  image:Timage;
  i:integer;
begin
  for i:=0 to recordcount-1 do
  begin
    image:=Timage(self.FindComponent('image'+inttostr(i)));
    showphoto(image);
  end;

Answer 2

var
  image:Timage;
  i:integer;
begin
  for i:=0 to recordcount-1 do
  begin
    image:=Timage(self.FindComponent('image'+inttostr(i)));
    showphoto(image);
  end;

Answer 3

var
  i: integer;
begin
  for i : =0 to recordcount - 1 do
  begin
    for i := 0 to self.componentcount - 1 do
     if self.components[i].name = 'image'+inttostr[i] then
        showphoto(image[i]);
  end;

Answer 4

to:失踪的月亮,  用您语句中的 image 执行Image.Picture.Assign(Jpg);出错                 而  Image1.Picture.Assign(Jpg);就可以
 怎么回事??