Hola jusar.
Código:
void __fastcall TForm1::NumerarClick(TObject *Sender)
{
for(int i=0;i < ComponentCount; i++)
if(Components[i]->ClassNameIs("TLabel")){
TLabel *L = static_cast<TLabel*>(Components[i]);
L->Caption = L->Name[L->Name.Length()];
}
}
Saludos.
Edito: El código funciona siempre y cuando el último caracter de la propiedad
Name de los
TLabel sean los números consecutivos, como solicitas en tu mensaje:
Cita:
Ejm label1=1, label2=2 y asi consecutivamente...
|