2][i])
{(0, «Такий запис вже присутня», «Помилка», mrOk);;
}=sgData-> Selection.Top; (p <1)
{(0, «Виберіть дані для зміни», «Помилка», mrOk);;
} (sgData-> Cells [0] [p] =="")
{(0, «Дані для зміни не знайдені», «Помилка», mrOk);;
}>Cells[0][p]=eYear->Text;>Cells[1][p]=eKind->Text;>Cells[2][p]=eSize->Text;>Cells[3][p]=eRegion->Text;(cbRegion, sgData, 3);
}
//---------------------------------------------------------------------------Compare(Elem a, Elem b)
{(a.region b.region) return 1; (a.kind b.kind) return 1; (a.year b.year) return 1; (a.size b.size) return 1; 0;
} Sort (Elem * arr, int N, int opt)
{tmp; (int i=0; i
{= (arr) [i];
(arr) [i]=(arr) [j];
(arr) [j]=tmp;
}
} __fastcall TMainForm :: MakeChartClick (TObject * Sender)
{TColor color [16]={clRed, clSkyBlue, clGreen, clYellow, clBlue, clWhite, clGray, clPurple,, clSilver, clOlive, clLime, clAqua, clTeal, clFuchsia,}; i, j , p, N, minY, maxY; * Arr, tmp, * ArrTMP; st=cbRegion-> Text, kind=«»; * T; (sgData-> Cells [0] [1] == « ; »)
{(0, «Перед побудовою графіка заповніть таблицю з даними», «Помилка», mrOk);;
}=sgData-> RowCount - 1;=new Elem [N]; (i=1; i <= N; i + +)
{[i - 1]. year=StrToInt (sgData-> Cells [0] [i]); [i - 1]. kind=sgData-> Cells [1] [i ]; [i - 1]. size=StrToFloat (sgData-> Cells [2] [i]); [i - 1]. region=sgData-> Cells [3] [i];
} (Arr, N, 1);=N; (i=N; i> 0; i -) ((Arr [i]. year == Arr [i - 1]. year) && (Arr [i]. kind == Arr [i - 1]. kind) && (Arr [i]. region == Arr [i - 1]. region) && (Arr [i]. region!=""))
{[i - 1]. size +=Arr [i]. size; [i]. year=0; [i]. kind=«»; [i]. size=0 ; [i]. region=«»;
} (Arr, N, - 1);=N - 1; (Arr [p]. region =="") -; + +;=new Elem [p]; ( ArrTMP, Arr, sizeof (Arr [0]) * p); [] Arr;=new Elem [p]; (Arr, ArrTMP, sizeof (Arr [0]) * p);=p;=10000;=-1; (i=0; i
{((Arr [i]. region == st) && (minY> Arr [i]. year)) minY=Arr [i]. year; ((Arr [i ]. region == st) && (maxY
} (Arr, N, 1);> BackColor=clBtnFace;> BorderStyle=bsNone;> Color=clBtnFace;> Frame-> Color=TColor (0x00404080);// Властивість Frame визначає рамку навколо діаграми> Frame-> Style=psSolid;> Title-> Text-> Clear ();> Title-> Text-> Add («Обсяги виробництва для регіону« ; »+ st +« »»);// Текст підпису можна здійснити через Text> Title-> Alignment=taCenter;> Title-> Font-> Color=clMaroon;> Title-> Font-> Name=«Arial»;> Title-> Font-> Size=8;> LeftWall-> Color=TColor (0x00E8E8F4);// Колірна гамма> BottomWall-> Color=clMaroon;// Розмір стінок> BackWall-> Color=clBtnFace;> MarginLeft=1;> MarginRight=1;> MarginTop=0;> Marg...
