Hallo,
also ... wenn Deine Labels die Namen "LabelB1" bis "LabelB30" tragen, würde ich auch eine Schleife bis 30 vorschlagen.
Du kannst dafür die Methode "FindComponent" nutzen. Diese gestattet es, Komponenten über ihren Namen anzusprechen:
Delphi-Quellcode:
For index:= 1 To 30 Do
Begin
TLabel( FindComponent('LabelB'+IntToStr(index)) ).Visible:= TRUE;
End;
Allerdings musst Du aufpassen, keines der Labels zu Löschen, ohne die Schleife anzupassen, da es sehr hässliche Laufzeit-Fehlermeldungen gibt, wenn eines der Labels nicht gefunden werden konnte. Zusätzlich könntest Du einen TRY .. EXCEPT - Block einsetzen. Dies wäre mit Sicherheit von Vorteil.
Daniel R. Wolf
mit Grüßen aus Hamburg