Thema: Label[i]

Einzelnen Beitrag anzeigen

günni0
(Gast)

n/a Beiträge
 
#9

AW: Label[i]

  Alt 3. Apr 2018, 11:51
Warum nicht so
Delphi-Quellcode:
var
 myLabel: TLabel;
begin
 myLabel := TLabel(FindComponent('Label' + IntToStr(i)));
Man castet ja eh auf TLabel ohne zu prüfen, ob es wirklich ein Label ist. Dann kann man es auch gleich als TLabel deklarieren.

Oder eben so
Delphi-Quellcode:
var
 Comp: TComponent;
 myLabel: TLabel;
begin
 Comp:= FindComponent('Label' + IntToStr(i));
 if Comp is TLabel then
  begin
    myLabel: TLabel(Comp);
  end;
  Mit Zitat antworten Zitat