怎么实现空件数组!!!(200分)

W

wuheedm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #1

如果在一个Form上放有10个Edit控件,还有一个Button控件,然后通过Button的Click事件
并使用一个循环语句使10个Edit的Text变成1..10!!!!

 

S

snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #2

var
editx:array[1..10] of TEdit;

for i:=1 to 10 do
editx.text:=inttostr(i);

 

Z

z_cd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #3

只能动态地生成.

 

W

wuheedm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #4

接受答案了.

 

H

hhzh426

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #5

设置edit的tag属性为1到10
name属性为edit1到edit10
var
temp:tcomponent;
i:integer
tempedit:tedit;
begin
....
for i:=0 to form1.componentcount-1 do
begin
Temp := form1.Components;
if (Temp is Tedit) then
begin
tempedit:=(temp as tedit);
if copy(tempedit.name,1,4)='edit' then tempedit.caption:=inttostr(tempedit.tag);
end;
end;
....
end;

 

D

devuser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #6

for i := 0 to form1.ComponentCount-1 do
if Form1.Components is TEdit then
.......