&& (Key<=«Я»))||(Key<=«і»)||(Key<=«ї»)||(Key<=«І»)||(Key<=«Ї»)|| (Key == VK_BACK))!=0; Key=0;
}
//---------------------------------------------------------------------------__fastcall TMainForm :: eYearKeyPress (TObject * Sender, char & Key)
{((Key>=«0») && (Key <«9») | | (Key == VK_BACK)) Key!=0; Key=0 ; (Key == VK_BACK) return; (((TEdit *) Sender) -> Text.Length ()> 3) {Key=0; return; }
}
//---------------------------------------------------------------------------__fastcall TMainForm :: eSizeKeyPress (TObject * Sender, char & Key)
{((Key>=«0») && (Key <«9») | | (Key == VK_BACK)) Key!=0; Key=0 ;
}
//---------------------------------------------------------------------------__fastcall TMainForm :: eRegionKeyPress (TObject * Sender, char & Key)
{(((Key>=«а») && (Key <= «я»)) | | ((Key>=«А») && (Key<=«Я»))||(Key<=«і»)||(Key<=«ї»)||(Key<=«І»)||(Key<=«Ї»)|| (Key == VK_BACK))!=0; Key=0;
}
/ / ---------------------------------------------------------------------------. h
/ / ---------------------------------------------------------------------------
# ifndef MainUnitH
# define MainUnitH
/ / ---------------------------------------------------------------------------
# include
# include
# include
# include
# include
# include
# include
# include
# include
# include
# include
//---------------------------------------------------------------------------Elem
{year; size; kind, region;
}; TMainForm: public TForm
{
__published: / / IDE-managed Components*sgData;*eYear;*Label1;*GroupBox1;*Label2;*eKind;*Label3;*eSize;*Label4;*eRegion;*bAdd;*bDel;*ChartSize;*bChange;*cbRegion;*MakeChart;*Label5;*bLoad;*bSave;*SaveDialog1;*OpenDialog1;*About;__fastcall FormCreate (TObject * Sender); __fastcall bAddClick (TObject * Sender); __fastcall bDelClick (TObject * Sender); __fastcall bChangeClick (TObject * Sender); __fastcall MakeChartClick (TObject * Sender); __fastcall bSaveClick (TObject * Sender); __fastcall bLoadClick ( TObject * Sender); __fastcall sgDataClick (TObject * Sender); __fastcall AboutClick (TObject * Sender); __fastcall eKindKeyPress (TObject * Sender, char & Key); __fastcall eYearKeyPress (TObject * Sender, char & Key); __fastcall eSizeKeyPress ( TObject * Sender, char & K...