//------------------------------------------------------------------------TControl* __fastcall TForm4::ControlByName(const AnsiString &AName)
{
for (int i = 0; i < ControlCount; i++)
if (Controls->Name == AName)
return Controls;
return 0;
}
//------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
for(int i=1;i<=3;i++)
{
TLabel *lb = dynamic_cast<TLabel*>(ControlByName("Label" + IntToStr(i)));
if (lb)
lb->Caption = IntToStr(i);
}
}
//------------------------------------------------------------------------
Переменное имя объекта
Имеем на форме
Label1
Label2
Label3
В цикле нужно Caption каждой дать значение i
for(int i=1;i<=3;i++)
{
??????->Caption=IntToStr(i);
}
Как обратиться в каждой итерации цикла к своему экземпляру TLabel?
Label1
Label2
Label3
В цикле нужно Caption каждой дать значение i
for(int i=1;i<=3;i++)
{
??????->Caption=IntToStr(i);
}
Как обратиться в каждой итерации цикла к своему экземпляру TLabel?
Цитата: docjohn
Имеем на форме
Label1
Label2
Label3
В цикле нужно Caption каждой дать значение i
for(int i=1;i<=3;i++)
{
??????->Caption=IntToStr(i);
}
Как обратиться в каждой итерации цикла к своему экземпляру TLabel?
Label1
Label2
Label3
В цикле нужно Caption каждой дать значение i
for(int i=1;i<=3;i++)
{
??????->Caption=IntToStr(i);
}
Как обратиться в каждой итерации цикла к своему экземпляру TLabel?
Код:
TLabel* lb;
for(int i=1;i<=3;i++)
{
lb = (TLabel*)FindComponent(String("Label") + IntToStr(i))
lb->Caption=IntToStr(i);
}
for(int i=1;i<=3;i++)
{
lb = (TLabel*)FindComponent(String("Label") + IntToStr(i))
lb->Caption=IntToStr(i);
}