Курсовая работа / Новая папка (2) / Курсовая / Matrix / MatrixUnit

#include <vcl.h>
#pragma hdrstop
#include "MatrixUnit.h"
#include "matrix.h"
int count=10,i,j;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  randomize();
  Edit1->Hide(); Label2->Hide(); Button2->Hide();
  StringGrid1->ColCount=count;
  StringGrid1->RowCount=count;
  for(i=0;i<count;i++)
    for(j=0;j<count;j++)
      StringGrid1->Cells[i][j]=IntToStr(random(20)-9);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
  Edit1->Show(); Label2->Show(); Button2->Show();
  Edit1->Clear();
  Form1->N1->Enabled=false; Form1->N3->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  if(Edit1->Text.Length()==0)
  {
    ShowMessage("Введите значение!");
    return;
  }
  count=StrToInt(Edit1->Text);
  if(count>10||count<2)
  {
    ShowMessage("Размерность должна быть в промежутке от 2 до 10!");
    count=10;
    return;
  }
  StringGrid1->ColCount=count;
  StringGrid1->RowCount=count;
  for(i=0;i<count;i++)
    for(j=0;j<count;j++)
      StringGrid1->Cells[i][j]=IntToStr(random(20)-9);
  Edit1->Hide(); Label2->Hide(); Button2->Hide();
  Form1->N1->Enabled=true; Form1->N3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK))
    return;
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
  Matrix *matrix=new Matrix;
  matrix->ColWithDescOrder(StringGrid1,count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
  Matrix *matrix=new Matrix;
  matrix->SumCountPrime(StringGrid1,count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
  Matrix *matrix=new Matrix;
  matrix->ChangeOrder(StringGrid1,count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
  Matrix *matrix=new Matrix;
  matrix->ColWithPrime(StringGrid1,count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
  if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK)||(Key=='-'))
    return;
  Key=0;
}
//---------------------------------------------------------------------------