Mehrere Label benennen

[I can me not out]

Hallo

Kann mir jemand helfen?

Ist es möglich mehrere Label per Schleife zu benennen?
So funktioniert es nicht:

for i:= 1 to 10 do
label+IntToStr(i).Caption:='Label'+IntToStr(i);

mfG

[DeddyH]

Quick'n Dirty: FindComponent

[TRomano]

Oder so, wenn man die Label desöfteren braucht:

Delphi-Quellcode:

type
  TArrayLabels : TArray<TLabel>;
end;

var aLabels : TArraylabels;

TMainForm.Create(Sender : TObject)
var oLabel : TLabel;
begin
  aLabels := TArrayLabels.Create(Label1,Label2,Labe3, {...,} Label526);

  for oLabel in aLabels oLabel.Caption := oLabel.Name;
end;

[Darlo]

Zitat von TRomano:

  for oLabel in aLabels do oLabel.Caption := oLabel.Name;

Hab das "do" ergänzt.

[TRomano]

@Darlo: DANKE !

Wieder einmal schnell dahin gefeuert und nicht drüber geschaut ...

[himitsu]

Und bezüglich dem "benennen":
Du meinst doch wohl die "Beschriftung" (Caption) und nicht die "Benamung/Benennung" (Name).

Component.Name sollte man so besser nie umbenennen, denn beim Umbenennen werden die Komponenten-Felder/Variablen in der Owner-Klasse automatisch umgeschrieben.
(die Referenz in der Variable mit dem alten Namen wird NIL und falls es eine Variable mit dem neuen Namen gibt, dann wird dort die Referenz reingeschrieben)