Hallo,

ich habe gerade in meinem neuen Projekt 10x10 Panels erstellt (also 100 )
Jetzt will ich deren Text durchnummerieren (z.B. 1 bis 100).
Dabei will ich natürlich nicht alle einzeln ändern sondern wollte mir mit einer For-Schleife helfen.
Meine Panels heißen Panel1, Panel2, Panel3 ... Panel100.

Meine Idee:

For i:=1 To 100 Do Panel(i).Text:=i;

Leider funktioniert Panel(i) nicht und mir fällt keine andere Möglichkeit ein.
Es wäre super, wenn jemand eine Lösung für das Problem hätte.

Danke schon einmal im Voraus

Grüße Basti

-> FindComponent

For i:=1 To 100 Do (FindComponent('Panel'+IntToStr(i)) as Tpanel).Text:=i;

FindComponent in Schleifen ist aber nicht so prickelnd, da es intern selbst eine Schleife verwendet. Besser wäre es, sich ein Array of TPanel oder eine TObjectList(OwnsObjects dabei auf false) zu erstellen und die Panels darin zu verwalten.

For i:=1 To 100 Do (FindComponent('Panel'+IntToStr(i)) as Tpanel).Caption:=IntTOStr(i);

Vielen Dank es hat geklappt. Es waren nur noch zwei weitere Fehler:

Panel.Text gibt es nicht es muss Panel.Caption heißen
Caption ist ja ein String also muss man am Ende IntToStr(i) nehmen.