怎么批量控制Edit和Label?UP有分

Question

想实现像VB中的对控件进行索引控制，比如在VB中
for i=0 to 12
text1(i).text='1111111'
next i
这样就对所有的text都赋值了，那么在Delphi中我怎么来实现这种功能，我想控制Edit和Label控件，应该怎么来实现，设置它的tag值吗？
还有就是我的控件的顺序是乱放的。但我控制的时候必须一从1开始的。

Answer 1

for i:=0 to 12 do
  begin
  TEdit(FindComponent('Edit'+inttostr(i))).text:='11111111';
  end;

Answer 2

可以通过设置tag值来实现的,比如控制tedit,让所有的edit都响应同一个事件:
通过 if (sender as TEdit).Tag=X 来判断当前的tedit是那个,然后操作.

Answer 3

var
  k: integer;
begin
  for k := 0 to ComponentCount -1 do
  begin
    if components[k] is TLabel then
    begin
      TLabel(components[k]).Caption := '1111';
    end;
  end;
end;

Answer 4

wlw88(飞扬) 的估计是他想要的

Answer 5

可以呀
for i:=0 to form.controlCount-1 do 
  if (form.controls[i] is tedit) then
     form.controls[i].text:='111111111111';