Delphi-PRAXiS - Delphi Ausdruck vereinfachen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Ausdruck vereinfachen (https://www.delphipraxis.net/18697-ausdruck-vereinfachen.html)

Ausdruck vereinfachen

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;

Re: Ausdruck vereinfachen

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

Re: Ausdruck vereinfachen