Just as I expected, Ulrik Vadstrup came up with this:
>Jeg har en løkke jeg skal løbe igennem, som skal sætte forskellige captions,
>på nogel labels
Godt gammelt spørgsmål...
>De hedder label1, label2, label3 osv...
Som altid.
>Kan jeg ikke skrive dem inddirekte, uden at skal erklære mine label's som et
>array
>
>Noget alla
>
>While i < 20 do
> Begin
> Label[i].Caption := 'Detter er nummer: ' +IntToStr(i);
> i := i+1;
> end;
>
>Overstående går bare ikke, når jeg ikke har dem liggende i eget array, jeg
>var bare ked af selv at skulle create og placere
Nemli'!
Du kan prøve at bruge noget lignende:
var
x: integer;
begin
for x := 0 to Form.ComponentCount-1 do
if Form.Components[x] is TLabel then
TLabel(Form.Components[x]).Caption := 'Label nummer '+IntToStr(x);
end;
Du kan ev.t udvide det til at tjekke labelens Name property og så give
labelen caption efter det.
Niels
--
e-mail: nmartin at iname dot com
ICQ UIN: 50187323
http://www.niller.f2s.com/ - niLLer's pages