Mehrere Komponenten

[Jens Schumann]

Hallo,
der Source z.B. so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iCnt   : Integer;
  aLabel : TComponent;
begin
  For iCnt:=1 to 10 do
    begin
    aLabel:=FindComponent('label'+IntToStr(iCnt));
    If aLabel is TLabel then
      (aLabel as TLabel).Caption:='Test';
    end;
end;