Labels in Schleifen einbinden -> wie?

[TheMiller]

Morgen Leute!

ich habe 20 Label-Komponenten auf meinem Formular. Nun ist es mir ein bissl blöd, immer wieder

Delphi-Quellcode:

Label1.Visible:=False;
Label2.Visible:=False;
Label3.Visible:=False;
...
Label20.Visible:=False;

zu schreiben. Ich dachte mir, ich mache diese Prozedur in eine Schleife. Das war mein Ansatz:

Delphi-Quellcode:

var i:Integer;
begin
  for i:=1 to 20 do begin
   Label(i).Visible:=False;
  end;
end;

Aber das geht nicht. Wie kann ich die Schleife so umschreiben, dass sei funzt, oder kann ich so eine Operation garnicht durchführen?

Danke im Vorraus

[toms]

Hi,

Suche mal nach FindComponent

[TheMiller]

Hey super, danke!

Funzt. Und zwar so:

Delphi-Quellcode:

procedure TEditTag.Button6Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 19 do begin
  TLabel(FindComponent('Label'+IntToStr(i))).Visible:=False;
 end;
end;

end.

Ok, bye!

[H4ndy]

Wusste garnicht dass es auch so geht, habs immer so gemacht:

Delphi-Quellcode:

for i:=1 to 19 do begin
  (FindComponent('Label'+IntToStr(i)) as TLabel).Visible := False;
end;

[TheMiller]

Tja, von mir kann man auch lernen ;-)
Ist zwar selten, aber es freut mich. :firejump: