如何在循环中给多个控件辅值

Question

 text1.Caption=test1   
  text2.Caption=test2   
  text3.Caption=test3   
  用for怎么实现   
  for     
        text+i.Caption=test+i
这样好像不行呀,应该怎么做.   
   

Answer 1

{比如，假设这些控件全部是TLabel类的}var
  I: integer;
begin
  for I := 1 to 3 do
    TLabel(Self.FindComponent('Label'+InttoStr(I))).Caption := 'NewCpt'+InttoStr(I);
end;

Answer 2

楼上的方法可以,经常在用!test1,test2,test3...testN 如果没规律,循环也没什么用处
可以把这些文字,存到数据库里,或者其它可储存的文本