przesłanie formatki do funkcji

[danijjel]

Witam

Chciałbym aby w moim programie formatka i jej komponenty były przesyłane do funkcji.

Mam dwie formatki, które różnią się od siebie tylko kilkoma elementami i chciałbym zrobić funkcję, która zeruje części wspólne tych dwóch formatek.

np:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void Zerowanie()
{
Imię->Text="";
Nazwisko->Text="";
itd....
}

Nie chcę pisać dwóch identycznych funkcji w dwóch formatkach, dlatego chciałem w pliku nagłówkowym głównej formatki umieścić funkcję, do której wysyłałbym nazwę formatki, z której należy usunąć informacje.

np:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void Zerowanie(formatka)
{
formatka->Imię->Text="";
formatka->Nazwisko->Text="";
itd....
}

jak to wysłać ?

Z góry dziękuję za pomoc.

[Mironas]

Np tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Zerowanie(Form2);
  Zerowanie(Form3);
}
//---------------------------------------------------------------------------
void TForm1::Zerowanie(TForm* formatka)
{
  TComponent* komponent;
  for (int i=0 ; i<formatka->ComponentCount ; i++)
  {
    komponent = formatka->Components[i];
    // wyzeruj wszystkie labele
    if ( komponent->ClassName() == "TLabel" )
      dynamic_cast<TLabel*>(komponent)->Caption = "";
    // wyzeruj wszystkie edity
    if ( komponent->ClassName() == "TEdit" )
      dynamic_cast<TEdit*>(komponent)->Text = "";
    // Wyzeruj wybrane memo
    if ( komponent->Name == "Memo1" )
      dynamic_cast<TMemo*>(komponent)->Lines->Clear();
  }
}
//---------------------------------------------------------------------------
 

[danijjel]

Super, dzięki wielkie