Програма домино

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <stdio.h>
#include <string.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 struct kompl {
   AnsiString  pozn;
   AnsiString tup;
   float  nomin;
   int kil;
 
  } komplek[15];
 
 int m,n, i, j;
 
 float sqx;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
exit(1);        
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
String buff;
 for (int i = 0; i < StringGrid1->RowCount-1; i++)
 for (int j = i; j < StringGrid1->RowCount; j++)
    {
     if (StringGrid1->Cells[0][i]>StringGrid1->Cells[0][j])
     {
     for(int k=0;k<7;k++)  // количество сортируемых столбцов
       {
         buff=StringGrid1->Cells[k][i];
        StringGrid1->Cells[k][i]= StringGrid1->Cells[k][j];
          StringGrid1->Cells[k][j]=buff;
       }
    }
   }
 
 
 
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
 
    StringGrid1->ColCount=5;
    StringGrid1->RowCount=11;
    StringGrid1->FixedRows=1;
    StringGrid1->FixedCols=1;
    StringGrid1->Cells[0][0] = "№";
  StringGrid1->Cells[1][0] = "Позначення";
    StringGrid1->Cells[2][0] = "Тип";
    StringGrid1->Cells[3][0] = "Номінал";
    StringGrid1->Cells[4][0] = "К-ть";
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//static short i = 0;
 
 
   Button1->Caption = i + 1;
 
   komplek[i].pozn =Edit1->Text;
   komplek[i].tup = Edit4->Text;
   komplek[i].nomin = StrToFloat(Edit3->Text);
   komplek[i].kil = StrToInt(Edit2->Text);
 
 
   StringGrid1->Cells[0][i+1] = i + 1;
   StringGrid1->Cells[1][i+1] = komplek[i].pozn;
   StringGrid1->Cells[2][i+1] = komplek[i].tup;
   StringGrid1->Cells[3][i+1] = komplek[i].nomin;
   StringGrid1->Cells[4][i+1] = komplek[i].kil;
 
   Edit1->SetFocus();
 
   if(i+1 == 10){ShowMessage("Кінець"); i = 0; return;}
   i++;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{int j,k,k1,min;
 String t;
 
for(j=1;j<i;j++)
 {k1=j;
 min=StrToInt(StringGrid1->Cells[4][j]);
 
  for(k=j+1;k<=i;k++)
   if (StrToInt(StringGrid1->Cells[4][k])<min) {k1=k;
                                                min=StrToInt(StringGrid1->Cells[4][k]);}
  for(k=1;k<=4;k++)
   {t=StringGrid1->Cells[k][k1];
    StringGrid1->Cells[k][k1]=StringGrid1->Cells[k][j];
    StringGrid1->Cells[k][j]=t;
   }
 }
 
}
//---------------------------------------------------------------------------