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.