Cuantos elementos hay en un objeto

[ecfisa]

Hola.

Busqué en pero no pude encontrar referencia a ese comportamiento .

Se me ocurren dos soluciones, la primera mediante una función miembro:

Código PHP:

...
class THWinControl : public TWinControl {
public:
  int CtrlCount() {
    int n = ControlCount;

    for(int i = 0; i < ControlCount; i++)
      if(Controls[i]->ClassNameIs("TLabeledEdit")) n--;
    return n;
  }
};
...

/* Ej. de uso */
void __fastcall TForm1::Panel1Exit(TObject *Sender)
{
  THWinControl* HWC = static_cast<THWinControl*>(LabeledEdit1->Parent);
  Label2->Caption = HWC->CtrlCount();
} 


o mas simple, mediante una función:

Código PHP:

...
int CtrlCount(TWinControl* WC)
{
  int n = WC->ControlCount;

  for(int i = 0; i < WC->ControlCount; i++)
    if(WC->Controls[i]->ClassNameIs("TLabeledEdit")) n--;

  return n;
}

/* Ej. de uso */
void __fastcall TForm1::Panel1Exit(TObject *Sender)
{
   Label2->Caption =  CtrlCount(LabeledEdit1->Parent);
} 


Saludos