Klassen und for-Schleife

[Marcel Düring]

Wie kann ich dies vereinfachen:<br>
begin<br>
label1.caption:='1';<br>
label2.caption:='1';<br>
label3.caption:='1';<br>
label4.caption:='1';<br>
...<br>
end;<br>
am besten mit einer for-Schleife hoffe ich.<br> Aber wie????<br>
Danke Marcel

[Florian Johann]

Hallo Marcel,

das müßte funktionieren:

for i := 1 to 4 do begin
TLabel(FindComponent('Label' + intToStr(i))).Caption := '1';
end

[Marcel Düring]

Vielen Dank Florian Johann;<br>
ich werde es ausprobieren