Delphi不支持控件数组吗？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

Question

支持啊，你的表达方式错了，DELPHI只能在堆里生成对象，必须
image.create什么的，不能你那么写

Answer 1

sunhuiNO1(2B)　
你说如何写呀，写一个清楚一点的呀
多谢：）
up up

Answer 2

可以的。我把你的程序COPY下来运行，发现你的“OF”写成“零F”了。

Answer 3

ImageArray:array [1..3] 0f TImage;这里定义都不对，哪位帮一下？：）

Answer 4

你建立的控件数组里的对象都没有初始化，应该create以后再使用

Answer 5

1.注意拼写是否有错
2.uses extctrls 单元
3.这样编译不会出错，
4.如果不是拷贝赋值,请创建之(Create)

Answer 6

大哥，你的拼写还是错了，把这句COPY过去，ImageArray:array [1..3] of TImage
另外在窗体上加一个TImage控件。

Answer 7

的确不支持控件数组，但是可以利用控件的TAG属性解决问题！

Answer 8

支持啊.我用过很多啦
ImageArray : array[1..4] of ^TImage ;
ImageArray[1]=@Image1;

Answer 9

你至少要看看object pascal的语法书吧？
先去书店买本薄点的delphi入门就可以了。我用的控件数组数都数不清了，当然定义后要create分配空间才能用  public
   qriBarCode : array[1..5]of TQRImage;
   qrlTitle   : array[1..5]of TQRLabel;
   qrlName    : array[1..5]of TQRLabel;
   qrlPrice   : array[1..5]of TQRLabel;

Answer 10

z_x_b(长弓落日金沙丘)　
  还是这位大侠了解我啊，：）
1、这段代码拼写没有错，那是别人写的，我在程序已经改正了
2、原因找到了，是没有uses extctrls 单元3、控件数组到底指什么？
类似于C中的指针数组吗？      很明显，我现在这种用法不是所谓的“控件数组”听别人说过用TAG模拟控件数组，哪位有例子？

Answer 11

TButtonArray = Array[0..9] of TButton; 
... var 
ButtonArray: TButtonArray; ... 
for i:= 0 to 9 do 
begin 
ButtonArray[i]:= TButton.Create(Form1); 
ButtonArray[i].Height:= 17; 
... 
end; 最后别忘了 
for i:= 0 to 9 do 
ButtonArray[i].Free; 
这样就OK了

Answer 12

TButtonArray = Array[0..9] of TButton; 
... var 
ButtonArray: TButtonArray; ... 
for i:= 0 to 9 do 
begin 
ButtonArray[i]:= TButton.Create(Form1); 
ButtonArray[i].Height:= 17; 
ButtonArray[i].tag:=i;
... 
end; 引用的时候
if tButton(Sender).tag=... then
begin
  ...
end;
最后别忘了 
for i:= 0 to 9 do 
ButtonArray[i].Free;这就是数组控件吧

Answer 13

delphi与vb不同，不是直接用，要间接使用.tag是每一个控件的标识，可以用来当数组的下标用，注意.tag是可以相等的不要搞错。eg: case (sender as Tbutton).tag of
1:... 2:... 3:... else ... end;
你原来的程序可以改写为
var 
Buttons: array [1..5] of TButton; 
... 
for i:= 1 to 5 do 
begin 
Buttons[i]:= TButton.Create(Self); 
Buttons[i].Parents:=Self;
Buttons[i].Left:=10; 
Buttons[i].tag:=i;
... 
if (Sender as TButton).tag=... then
begin
...
end;
...
for i:= 1 to 5 do 
Buttons[i].Free;