求一个小技巧，呵呵，帮帮我。

Question

给30个Label的Caption赋值
Label1.Caption:='条件1';
Label2.Caption:='条件2';
......
Label30.Caption:='条件30';怎么做最方便？

Answer 1

var
  i : Integer;
begin
  for i := 1 to 30 do
    if FindComponent('Lable'+IntToStr(i))<>nil then begin
      TLabel(FindComponent('Lable'+IntToStr(i))).Caption := Format('条件%d',[i]);
    end;
end;

Answer 2

请问一下FindComponent是什么函数，可以解释一下吗？谢谢

Answer 3

VCL的内置函数，没什么好解释的，看Help去了