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

Y

yb0100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-25

• #1

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

 

X

xmh_31

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-25

• #2

不是很理解你的问题

 

W

weianwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-25

• #3

是组合控件吗？

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-25

• #4

不是很理解你的问题

 

伊

伊天笑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #5

你可以分别取出6个EDIT中的数据，并转换成整型进行排序，用若干个变量保存起来，
至于下面显示相应的图片，你可以通过图片的名字进行处理，用名字的主名加上上面的数字来取出图片

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #6

用六个image控件,分别对应六张图片
控制他们的排列位置就行了
image1.top
image1.left

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #7

是不是这个意思？
procedure TForm1.Button1Click(Sender: TObject);
var
tmpStr:TStringlist;
i:integer;
begin
tmpStr:=TStringlist.Create;
//给Edit1－Edit6的文本排序
tmpStr.Sorted:=true;
for i:=1 to 6 do tmpStr.Add(TEdit(FindComponent('Edit'+IntToStr(i))).Text);
for i:=1 to 6 do TEdit(FindComponent('Edit'+IntToStr(i))).Text:=tmpStr.Strings[i-1];
//给Image1－image6装人对应的文件
for i:=1 to 6 do TImage(FindComponent('Image'+IntToStr(i))).Picture.LoadFromFile(GetCurrentDir+'/'+tmpStr.Strings[i-1]+'.bmp');
tmpStr.Free;
end;

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #8

用一個panel, 在panel中放入一個edit和一個image, 然後做六個一樣的panel就行了...

 

Y

yb0100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-26

• #9

多人接受答案了。