Selbe Eigenschaft mehrerer Objekte in loop ändern

[Dr. Cosnole]

Guten Morgen zusammen,

ich suche nach einer Möglichkeit eine eigenschaft z.B. Text von mehreren Objecten z.B. TLabel in einer Schleife zu ändern.

z.B.

Code: Alles auswählen

for i:=0 to Index-1 do
begin
Label[i].Text := 'blablabla'
end;

Ich hoffe ihr habt verstanden, was ich meine.
Wäre super wenn jemand einen weg wüsste, wie man so etwas anstellt.

Nette Grüße
Dr. Console

[Yogi72108]

Die Frage kommt nicht so ganz klar rüber, aber ich könnte mir sowas vorstellen:

Code: Alles auswählen

 
for i:=0 to ControlCount-1 do
  if Controls[i] is TLabel then
    TLabel(Controls[i]).Text:='123456abcde';
 

Das schnappt sich einfach jedes TLabel das gefunden wird und setzt den gleichen Text.

[Dr. Cosnole]

Danke,

das ist schon recht nahe an eminer Idee dran.
Mein Problem ist, ich habe einige Objekte, wovon einige einen Namen nach dem Schema Sub1..Sub2..usw. tragen und ich möchte nur die Werte von diesen ändern, nicht von den anderen Objekten.
Gibt es da auch eine möglichkeit? Evtl. eine Art Platzhalter für eine Namensabfrage?

Nette Grüße
Dr. Console

[m.fuchs]

Angenommen es ginge um die Buttons mit Namen Sub1, Sub2, Sub3 und du willst ihre Caption ändern:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 3 do begin
    TButton(FindComponent('Sub' + IntToStr(i))).Caption := 'Blubb';
  end;
end;  

[Dr. Cosnole]

Perfekt, genau das habe ich gesucht!
Danke!