请问怎么给多个EDIT按顺序赋值？？？(30分)

L

lingweifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #1

FORM2上有很多控件，其中有260多个EDIT，在FORM1上控制将一个400长度得字符串数组
按顺序赋值个这260个EDIT得TEXT属性里。
for i:= 0 to ControlCount-1 do

begin

if Controls is TEdit then

TEdit(Controls).Text := '';

end;

我这样写完但是数组值并不是按顺序赋值到EDIT.TEXT里的，哪位大侠能给解决下！！！
谢谢！！！

 

F

fsse4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #2

你要將Form2中Edit的TabOrder設置一下，或者 按 Edit的名稱特性來處理。。。
這260個Edit是默認名稱還是你設置了Name了？？？

 

F

fox009521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #3

楼上的应该可以 设置下TabOrder

 

H

HeXiangLee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-29

• #4

把你的所有的Edit按照一定的规则命名例如:
edtValue1, edtValue2, .....edtValue260
begin
for i:=1 to 260do
begin
TEdit edtTemp := Self.FindControl("edtValue" + IntToStr(i)) As TEdit;
edtTemp.Text := "你的值";
end;
end;