---

Hej

Jeg har 360 Tlabels på en form, navngivet L1 - L360.
Hvordan gennemgår jeg - i mit program - nemmest disse labels een for een,
for at sætte deres Caption.

På forhånd tak.

Rene Rasmussen

---

"Rene Rasmussen" <barbakane> skrev i en meddelelse
news:405bfa00$0$235$edfadb0f@dread16.news.tele.dk...
> Hej
>
> Jeg har 360 Tlabels på en form, navngivet L1 - L360.
> Hvordan gennemgår jeg - i mit program - nemmest disse labels een for een,
> for at sætte deres Caption.

var
i : integer;

begin
for i:=1 to 360 do
if FindComponent('L'+inttostr(i))<>nil then
(FindComponent('L'+inttostr(i)) as TLabel).Caption:='jowjow';
end;

eller....

begin
for i:=0 to ControlCount-1 do
if Controls[i] is TLabel then
(Controls[i] as TLabel).Caption:='Mit navn er: '+Controls[i].Name;
end;

Mvh
HK

---

Jeg takker mange gange for det hurtige svar.

Rene.

"Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
news:405c249c$0$484$edfadb0f@dread14.news.tele.dk...
> "Rene Rasmussen" <barbakane> skrev i en meddelelse
> news:405bfa00$0$235$edfadb0f@dread16.news.tele.dk...
> > Hej
> >
> > Jeg har 360 Tlabels på en form, navngivet L1 - L360.
> > Hvordan gennemgår jeg - i mit program - nemmest disse labels een for
een,
> > for at sætte deres Caption.
>
> var
> i : integer;
>
> begin
> for i:=1 to 360 do
> if FindComponent('L'+inttostr(i))<>nil then
> (FindComponent('L'+inttostr(i)) as TLabel).Caption:='jowjow';
> end;
>
> eller....
>
> begin
> for i:=0 to ControlCount-1 do
> if Controls[i] is TLabel then
> (Controls[i] as TLabel).Caption:='Mit navn er: '+Controls[i].Name;
> end;
>
> Mvh
> HK
>
>
>