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:

Zitat von TRomano (Beitrag 1278632)

Delphi-Quellcode:

  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)

[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.

[Sir Rufo]

Zitat:

Zitat von I can me not out (Beitrag 1278718)

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

Delphi-Quellcode:

TLabel

Komponenten die Eigenschaft

Delphi-Quellcode:

Caption

neu setzen und machst einen harten Cast auf

Delphi-Quellcode:

TEdit

? Warum nicht einfach gleich ein Cast nach

Delphi-Quellcode:

TDBGrid

? :roll:

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.

[DeddyH]

Das ist aber sehr optimistisch, Du solltest zumindest prüfen, ob die entsprechende Komponente auch gefunden wurde.

Delphi-Quellcode:

var
  Comp: TComponent;
begin
  Comp := FindComponent('Label' + inttostr(i));
  if Assigned(Comp) and (Comp is TLabel) then
    TLabel(Comp).Caption := 'Nummer' + inttostr(i);

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1278725)

Das ist aber sehr optimistisch, Du solltest zumindest prüfen, ob die entsprechende Komponente auch gefunden wurde.

Wenn die Funktion des Programms erfordert, daß das "Umbenennen" funktioniert, dann bringt soein IF nichts, wenn man das ELSE mit Fehlermeldung nicht mit einbaut.

Delphi-Quellcode:

Comp := FindComponent('Label' + inttostr(i));
if Assigned(Comp) and (Comp is TLabel) then
  TLabel(Comp).Caption := 'Nummer' + inttostr(i)
else 
  // Fehlerbehandlung!

Aber wenn man nicht wirklich weiß was man macht, dan sollte man unbedingt von Hardlinks (

Delphi-Quellcode:

TEdit(...)

) verzichten und nur mit Softlinks (

Delphi-Quellcode:

... as TEdit

) arbeiten, denn fallen solche Fehler auf.

Wobei in der VCL das Edit eh kein (public) Caption besitzt und der Compiler das bereits bemängeln sollte.

Delphi-Quellcode:

(FindComponent('Label' + IntToStr(i)) as TLabel).Caption := 'Nummer' + IntToStr(i);

Wenn es nicht gefunden wurde, oder es der falsche Typ ist, dann gibt es eine wunderschöne Exception. (und nicht nur eine komische Zugriffsverletzung)