   ___________________429

if ((! FEnableNum) && (Dig.Contains(Key)))

Key = 0;

if ((! FEnableLet) && !(Dig.Contains(Key)))

Key = 0;

if (Key != 0) FModified = true;

TEdit::Keypress(Key);

}

  .     .
        . 7.7.    -
     CheckBox (  CBClear), -
   .      CanClear
   OnClear.      
   OnClear,     ,  -
   CBClear,   (  Checked).    -
  ,      ,   -
.         
 .     OnClear  -
   .       ,
          ,
   :

void_fastcall TFormI::EditLetNumlClear(TObject *Sender,

bool SCanClear)
(

ShowMessage(" OnClear");

CanClear = CBClear->ChecK.ed;

EditLetNuml->SetFocus () ;

}

     CanClear,   -
 ,     ,    
CBClear.

  .       
EnableNum  EnableLet     CBNum  CBLet.
, ,   EnableNum  true, a EnableLet  false,  -
 CBNum    ( Checked = true),   CBLet 
.

        .

7.4      

  (  Repository)  ,  
 File New.      New Items,   
    C++Builder    
  Borland .     -
     .

         -
   .     
     . ,  
  -  ,   ,   -
 .         , , -
,          ,
   .     - 
    C++Builder,       
.      .