Label Captionen mit "kurzem" qt ändern

[citybreaker]

Hallo,

ich das 10 Labels schnell die gleiche caption bekommen deswegen hab ich gedacht
ich mach das mit for, alerdings klappt das nicht wie ich es mir gedacht hab.

Delphi-Quellcode:

var i, i1: integer;
begin
  i1 := 10;
  for i := 1 to i1 do
    Label[i].Caption :='11';
end;

Wie könnte ich das sonst möglichst kurz machen?

[Matze]

Such mal hier nach FindComponent

[Meflin]

Delphi-Quellcode:

with TLabel(FindComponent('label'+inttostr(variable))) do begin
...
end;

[Markus K.]

Hallo citybreaker,
nutze dafür FindComponent.

Delphi-Quellcode:

var i, i1: integer;
begin
  i1 := 10;
  for i := 1 to i1 do
    TLabel(FindComponent('Label'+IntToStr(Lauf))).Caption:='...';
end;

Tschüß Markus

[StefanDP]

ich bevorzuge folgenden syntax:

Code:

for i := 1 to il do
  (FindComponent('Label' + IntToStr(i) as TLabel)).Caption := '...'

mfg
stefan

[citybreaker]

Hab schon was gefunden, nachdem matze das mit findcomponent geschrieben hat. Danke für eure hilfe.