46_____________________________________________ 1

void _fastcall TFormI::F2(char Ch)
{

Labell->Caption = Labell->Caption + Ch + Chl;

}

//

void F3(char Ch)
{

Forml->Labell->Caption = Forml->Labell->Caption + Ch +
Forml->Chl;

)

//

void   fastcall TFormI::ButtonlClick(TObject *Sender)

(

//  Ch4     

char Ch4;

Chl = ' - ' ;

Ch2 = 'A' ;

Ch3 = '' ;

Ch4 = '';

Labell->Caption = "";

Fl(Chl) ;

F2(Ch2) ;

F3(Ch3);

F4(Ch4);

Labell->Font->Color = cIRed;

)

  ButtonlClick     Buttoni   -
        : Fl  F4,  -
   : Chl  Ch4.     -
    .   ,    
    .    ,   
,  .

     TLabel   Caption   
.    Fl  F4    ,  
 ,      Ch,   , -
   Chl,        
.

      TForml::ButtonlClick,  -
  Chl  Ch4   <-, , »  ѻ, 
  Caption  Labell,     ,   -
    Fl  F4,      
 .        .
    Font    Labell.   
 ,   Color  .    -
    TForml::ButtonlClick.

1.6.5.2      

 ,         
.         
         . -
,     TFormI     

TLabel *Labell;

   Labell        TLabel.
   ,   ,    12 
12.7,     ,     ,   -
  .  ,   C+4-Builder 
 ,      .