Ausdruck vereinfachen

[marc.beeh]

Hallo,
wie kann man diesen Ausdruck vereinfachen (verkürzen)?

Delphi-Quellcode:

  namen[1] := Label1.Caption;
  namen[2] := Label2.Caption;
  namen[3] := Label3.Caption;
  namen[4] := Label4.Caption;
  namen[5] := Label5.Caption;
  namen[6] := Label6.Caption;
  namen[7] := Label7.Caption;
  namen[8] := Label8.Caption;
  namen[9] := Label9.Caption;
  namen[10] := Label10.Caption;
  namen[11] := Label11.Caption;
  namen[12] := Label12.Caption;
  namen[13] := Label13.Caption;
  namen[14] := Label14.Caption;
  namen[15] := Label15.Caption;

[Markus K.]

Hallo marc.beeh,
so könnte man es vereinfachen.

Delphi-Quellcode:

var Lauf:Integer;
begin
     for Lauf:=1 to 15 do
     begin
          namen[Lauf]:=TLabel(FindComponent('Label'+IntToStr(Lauf))).Caption;
     end;
end;

Hoffe das es funzt.

Tschüß Markus

[marc.beeh]

Danke :)