关于控件使用的问题,edit(3分)

W

wl821205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #1

我有20个edit文本框控件,分别取名为:edit1....edit20
现在我想依次往edit1..edit20中填入数据,分别是1,2,...20,有没有简单的方法

 

X

xiaolin317

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #2

自动填入还是怎么的? 我好不知道...

 

Q

qcchan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #3

var
frmComponent:TComponent;

for i:=0 to ComponentCount-1 do // 遍历Form组件
begin
frmComponent:=Components;
if frmComponent is TEdit then // 如果组件为TEdit处理
begin
(frmComponent as TEdit).Text:=copy(frmComponent.Name,5,length(frmComponent.Name));
end;
end;

 

Z

zj_mpy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #4

frmComponent:TComponent;

for i:=0 to ComponentCount-1 do // 遍历Form组件
begin
frmComponent:=Components;
if frmComponent is TEdit then // 如果组件为TEdit处理
begin
(frmComponent as TEdit).Text:=copy(frmComponent.Name,5,length(frmComponent.Name));
end;
end;

 

L

liuguilg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #5

果然，高

 

T

tlzmm_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #6

create porcedure edit_insert;
var i : integer;
begin
for i :=1 to 20 do
begin
editi.text:=inttostr(i);
inc(i);
end ;
end ;
//不知道这样可不可以呢！

 

H

heiqiqiou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #7

还是qcchan的好!