Kann man den KomponentenNamen manipulieren???

[Piro]

Moin,

ich möchte gerne den KomponentenNamen variabel ansprechen.

Ich habe 50 Labels mit einer Namenskonvention. Ich möchte gerne zur Laufzeit mit einer For Schleife den Labels einen Text zuweisen.

In Excel geht das so z.B.: "Range("A" & <Variable>).Select. Dabei ist "&" der Verbindungsoperator. Aber wie geht das bei Delphi, oder ist es gar nicht möglich?

Delphi-Quellcode:

z.B.: lbl_1 / lbl_2 / lbl_3 ... lbl_50

...
for i:=1 to 50 do
  lbl_ & i.text := inttostr(i);

So funzt dat nicht. Wie mache ich das? Ich hoffe einer kennt die Sache.

[Dax]

Das geht mit FindComponent.
Beispiel:

Delphi-Quellcode:

(FindComponent('lbl_' + IntToStr(i)) as TLabel)

Dann hast du Zugriff auf dein Label ;)

[mael]

Eine Möglichkeit wäre sowas:

Delphi-Quellcode:

var
  i, j: Integer;
begin
  j := 0;
  for i := 0 to ControlCount - 1 do
    if (Controls[i] is TLabel) and (Controls[i].Tag = 1) then
    begin
      inc(j);
      TLabel(Controls[i]).Caption := IntToStr(j);
    end;
end;

Die Idee dabei ist alle Controls auf der Form durchzulaufen die zur gleichen "Gruppe" gehören.
Dazu setzt man die Tag-Eigenschaft der Labels im Formular-Designer auf eine gemeinsame Zahl so daß eventuell andere Labels, die einen nicht interessieren, ausgeschlossen werden können.

Der Test

Delphi-Quellcode:

Controls[i] is TLabel

sichert zu, daß man nur Labels betrachtet.

[Piro]

Danke für eure Hilfe.

hab alles hinbekommen.