Курсовая работа: Создание программы табуляции функций
switch(rgrFunction->ItemIndex)
{case 0:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function1(i));
Series1->AddXY(i, function1(i), "",clRed) ;
break;
case 1:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function2(i));
Series1->AddXY(i, function2(i), "",clRed) ;
break;
case 2:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function3(i));
Series1->AddXY(i, function3(i), "",clRed) ;
break;
case 3:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function4(i));
Series1->AddXY(i, function4(i), "",clRed) ;
break;
case 4:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function5(i));
Series1->AddXY(i, function5(i), "",clRed) ;
break;
case 5:
sgrXY->Rows[j+1]->Strings[1] = FormatFloat("0.00", function6(i));
Series1->AddXY(i, function6(i), "",clRed) ;
break;}}
sgrXY->RowCount = sgrXY->RowCount >= 2 ? sgrXY->RowCount : sgrXY->RowCount--;}
//----------------------------------------------------------
void __fastcall TfrmTabulation::btnClearClick(TObject *Sender)
{Series1->Clear();