Mehrere Komponenten

[sisa2002]

Hallo,

ich habe in meinem Code mehrer Labels die die Namen Label 1 bis
Label 10 tragen. Wenn ich in alle Labels das gleich schreibenmöchte, müsste ich zehn mal den selben Befehl mit sich ändernden Labelbezeichnungen Programmieren. Kann man dies nicht durch eine For Schleife verkürzen ? Wenn ja wie müsste der Quellcode aussehen ? :?:

[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;

[sisa2002]

Danke für deine schnell Hilfe ! :spin: