如何简化？(80分)

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-11

• #1

我在程序中用到，
up1,up2,up3,....:Timage;
(它们都是静态的控件，如TImage等，
是直接从控件面板上拽下来的)

但在程序中为了操作灵活，
我想作一个数组：up:array[1..100] of Timage;
然后：
up[1]:=up1; up[2]:=up2; .....

谁有办法简化这办法程序吗？比如用for循环来完成，

谢谢！！！

 

Z

z

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-11

• #2

用findcomponent函数，再加一些其他的即可。

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-11

• #3

procedure TForm1.FormCreate(AOwner: TComponent);
var
I: Integer;
begin
inherited;

for I := 1 to 100 do
up := TImage(FindComponent('up' + IntToStr(I)));
end;