Леиблы

[Zeraim]

Возник вопрос: Можно-ли в дельфи перечислять лейблы поочередно в цикле
for, чтото вроде этого:

for i := 1 to 12 do Label[i].Caption := '....';

-------------------------------------------------------------------------------
Спасибо, Баламут

[Баламут]

Конечно можно.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
for I := 0 to Form1.ControlCount - 1 do
  begin
    if (Form1.Controls[i] is TLabel) then
    (Form1.Controls[i] as TLabel).Caption := 'Lab' + IntToStr(i);
  end;
end;