如何将6个edit中的数据排序后,在他们的下面对应显示IMAGE格式的第一....第六的图图片???

Question

第一----第六的图片都已做好,绝对新手,各位大大,不要见笑!!!!!

Answer 1

而且随首EDIT中的数据原改变,对应的IMAGE也随着改变

Answer 2

能做的到这儿回复再领100分!!!http://expert.csdn.net/Expert/topic/3005/3005016.xml?temp=.291485

Answer 3

用查询语句把ADO查询的记录集改变就可以了

Answer 4

你把每一张图设成和每一个Edit相关联，然后给所有的Eidt排序就行了。

Answer 5

假设你希望6个Edit中的数是从小到大排列，对应图片是C:\Picture目录下的1.jpg～6.jpg。
procedure TForm1.Button1Click(Sender: TObject);
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;

Answer 6

up
6个Edit中的数是从小到大排列，对应图片是C:\Picture目录下的1.jpg～6.jpg。
下面還要有6個Image控件掃行樓上代碼就行了

Answer 7

在EDIT 的ONCHANGLE 中 判断，然后把各个图片的位置调整就是了。var
index:integer;
begin
  index:=StrtoInt((Sender as TEdit).text);
  case index of
  begin
   1: begin
        image1.left:=xx;
        image1.top:=yyy;
      end;
   2:..............................
  end;
end;

Answer 8

eidt中的数据大小变化了,对应的IMAGE图片也变化.多谢各位大大的帮助!!!!

Answer 9

不好意思，这是我的图片，http://yb0100.8u8.com/22.jpg，看看就知道我的意思了