Mehrere Label benennen

[Sir Rufo]

Zitat von I can me not out:

Hallo

Herzlichen Dank für die schnellen und vor allem für mich brauchbaren und verständlichen Antworten.
Das Umbenennen mehrerer vorhandener Label ist so recht einfach:

Tedit(FindComponent('Label' + inttostr(i))).Caption:= 'Nummer' + inttostr(i);

Danke !!!

Ps: Ich vergesse mehr als ich mir merke. Da bleibt genug Platz für Neues.

Ja du vergisst auch die Delphi-Tags zu benutzen ...

Lassen wir uns dieses Snippet mal auf der Zunge zergehen:

Delphi-Quellcode:

TEdit(
  FindComponent(
    'Label' + inttostr( i ) ) ).Caption := 'Nummer' + inttostr( i );

Du willst also bei TLabel Komponenten die Eigenschaft Caption neu setzen und machst einen harten Cast auf TEdit ? Warum nicht einfach gleich ein Cast nach TDBGrid ?

Für sowas nimmt man eigentlich immer den kleinsten gemeinsamen Vorfahren, der die benötigte Eigenschaft eingeführt hat.

Das bekommt man über die Doku heraus -> TLabel.Caption und, oh Wunder, da steht, dass das von TControl.Caption geerbt ist.