有几个image和一个edit，如何在edit中输入一个图片编号，改变image中的图片

Question

有几个image和一个edit，如何在edit中输入一个图片编号后回车，改变第一个image中的图片；然后再输入一个图片编号后回车，改变第二个image中的图片...有8到9个image.我能够在一个image中改变图片，但是不知道如何改变下一个image中的图片。希望大家帮助我，谢谢。我的代码：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
aa:string;
begin
     if key=#13 then  //按回车键后
     begin
     getdir(0,aa);   
     aa:=aa+'\图片\'+edit1.Text+'''.jpg';  //得到图片保存路径
     image1.Picture.LoadFromFile(aa);
     edit1.Clear;
     end;
end;

Answer 1

设置一个变量，每输入一个图片回车后，变量+1，
根据变量给imagex。picture 付值

Answer 2

在图片文件夹下建立几个如,1,2,3,4命名的文件夹,里面放着不同IMAGE控件要显示的图片,比如1文件夹放的是IMAGE1所要显示的图片文件.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
aa,name:string;
begin
     if key=#13 then  //按回车键后
     begin
     getdir(0,aa);   
     aa:=aa+'\图片\'+edit1.Text+'\'+edit2.text'.jpg';  //得到图片保存路径
     name:=image+edit1.text;
if (FindComponent(name) is Timage) then
  (FindComponent(name) as TPanel).Picture.LoadFromFile(aa);
       edit1.Clear;
       edit2.clear
     end;
end;

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
aa,name:string;
begin
     if key=#13 then  //按回车键后
     begin
     getdir(0,aa);   
     aa:=aa+'\图片\'+edit1.Text+'\'+edit2.text'.jpg';  //得到图片保存路径
     name:=image+edit1.text;
if (FindComponent(name) is Timage) then
  (FindComponent(name) as Timage).Picture.LoadFromFile(aa);
       edit1.Clear;
       edit2.clear
     end;
end;

Answer 4

需要图片能循繁吗？我假定你需要循繁，一共有8个image组件。一下是在你的基础上加的几行代码。
    i: integer;
    for i=1 to 8 do
        ...
        ...
        image(i mod 8).picture.lodefromfile(aa);
        ....
        ....

Answer 5

楼上的,你这段代码能用???
image(i mod 8).picture.lodefromfile(aa);

Answer 6

谢谢你们的帮助，很高兴认识你们，能留下你们的e-mail么？