关于EDIT的控制问题？详细情况请看里面~~

Question

我想实现像VB中的对控件进行索引控制，比如在VB中
for i=0 to 12
text1(i).text='1111111'
next i
这样就对所有的text都赋值了，那么在Delphi中我怎么来实现这种功能，我想控制Edit和Label控件，应该怎么来实现，设置它的tag值吗？

Answer 1

对，设置不同的tag值后遍历一次控件，如果是tedit类，并且tag = i
那么就可以进行不同的操作

Answer 2

var
  lp: integer;
begin
  for lp := 0 to controlcount - 1 do 
  if controls[lp] is tedit then 
    tedit(controls[lp]).text := '';
end;