Реферат Автоматизація ПОБУДОВИ діаграм динаміки обсягів промислового виробництва регіонів України

inBottom=0;> LeftAxis-> LabelsOnAxis=false;> SeriesList-> Clear ();=0;=new TBarSeries (ChartSize);> Marks-> Visible=false;> Title="Test"; (i=minY; i <= maxY; i + +)> AddXY (i, 0, IntToStr (i), T-> LegendItemColor (0)); flag=false; (i=0; i

{(Arr [i]. region == st)

{(kind =="")

{> Marks-> Visible=false;> Title=Arr [i]. kind;=Arr [i]. kind;

} (Arr [i]. kind!=kind)

{(! flag) T-> AddXY (minY, 0, IntToStr (minY), T-> LegendItemColor (p)); (kind!="")> AddSeries (T);=Arr [i]. kind;=new TBarSeries (ChartSize);> Marks-> Visible=false;> Title=Arr [i]. kind;=false;

} (minY == Arr [i]. year) flag=true;> AddXY (Arr [i]. year, Arr [i]. size, IntToStr (Arr [i]. year ), T-> LegendItemColor (p));

}

}> AddSeries (T);> Legend-> Visible=true;// Legend - список позначень на діаграмі

} TMainForm :: FillRegion (TComboBox * CB, TStringGrid * SG, int p)

{> Items-> Clear (); (int i=1; i RowCount; i + +) (CB-> Items-> IndexOf (SG-> Cells [p] [i]) == - 1)> Items-> Add (SG-> Cells [p] [i]); (CB-> Items-> Count> 0)> ItemIndex =0;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: bSaveClick (TObject * Sender)

{(sgData-> Cells [0] [1] =="")

{(0, «Перед збереженням необхідно заповнити таблицю», «Помилка», mrOk);;

} (SaveDialog1-> Execute ())

{* Table=new TStringList; (int i=1; i <= sgData-> RowCount - 1; i++)&gt;Add(sgData-&gt;Rows[i]-&gt;DelimitedText);&gt;SaveToFile(SaveDialog1-&gt;FileName);Table;(0,&laquo;Данные збережені »,« Інформація », mrOk);

}

}

//---------------------------------------------------------------------------__fastcall TMainForm :: bLoadClick (TObject * Sender)

{(OpenDialog1-> Execute ())

{(sgData); * Table=new TStringList;> LoadFromFile (OpenDialog1-> FileName); N=Table-> Count; (int i=1; i <= N; i + + )> Rows [i] -> DelimitedText=Table-> Strings [i - 1]; (N> 0) (N == 1)> RowCount=2;

{> RowCount=N +1;> Enabled=true;

} Table; (cbRegion, sgData, 3); (0, «Дані завантажені», «Інформація», mrOk);

}

}

//---------------------------------------------------------------------------__fastcall TMainForm :: sgDataClick (TObject * Sender)

{p=sgData-> Selection.Top;> Text=sgData-> Cells [0] [p];> Text=sgData-> Cells [1] [p] ;> Text=sgData-> Cells [2] [p];> Text=sgData-> Cells [3] [p];

}

//---------------------------------------------------------------------------__fastcall TMainForm :: AboutClick (TObject * Sender)

{_Form-> Show ();

}

//---------------------------------------------------------------------------__fastcall TMainForm :: eKindKeyPress (TObject * Sender, char & Key)

{(((Key>=«а») && (Key <= «я»)) | | ((Key>=«А»)...