      ________________511

CBDep->ItemIndex = 0;

       
CBDep.      ,      -
      ,     
-1.        , -
 Itemlndex  ,     .

       RGFClick, 
    .    -
    OnClick  RGF   , 
 .     ,   ,  -
 ,      -
     .    -
   RGFClick   OnChange   .

   RGFClick   depfio, 
     .   -
   , ..   
 .     ( ),  
   Filtered  false.    
    true.    2 (  -
),    Filter   Dep='...',   
 ,     CBDep.   
3 (  ),    Filter  
(Year_b<==...)and(Year_b>=...),     , 
   SEmin  SEmax.    -
        , -
       
Age .

   ,     IntToStr  -
    int.       C+4-Bu-
ilder   : Ambiguity between '_fastcall Sysutils::lntToStr(__int64)' and
'_fastcall Sysutils::lntToStr(int)'>>,  ,     -
        -
_int64  int.    .  12.2  12.

        
 OnFilterRecord.        
,   Filtered   true.    -
    Accept  .    , 
  ,  Accept     true. 
   ,  Accept   
 false.   OnFilterRecord,    -
,    RGFClick    ,   

void_fastcall TFormI::TablelFilterRecord(TDataSet *DataSet,

bool SAccept)
(

Accept = (RGF-> Itemlndex ==0) II

((RGF->ItemIndex == 2) && (TablelDep->Value==CBDep->Text)) || '
((RGF->ItemIndex == 3) &&

(TablelYear_b->Value <= (Year-SEmin->Value)) &&
(TablelYear_b->Value >= (Year-SEmax->Value))) ||
((TablelDep->Value == CBDep->Text) &&
(TablelYear_b->Value <= (Year-SEmin->Value)) &&
(TablelYear b->Value >= (Year-SEmax->Value)));