selectsort.cpp

关于书籍《Borland c++Builder工程实践》的源代码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SelectSort.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSelForm *SelForm;
//---------------------------------------------------------------------------
__fastcall TSelForm::TSelForm(TComponent* Owner)
    : TForm(Owner)
{
   FormStyle=fsStayOnTop;
   
}
//---------------------------------------------------------------------------
void __fastcall TSelForm::FormCreate(TObject *Sender)
{
    int i,j,k;
    DisplayInterval = 400;
    DataGrid->Cells[0][0] = "元素编号";
    DataGrid->Cells[1][0] = "元素初值";
    DataGrid->Cells[2][0] = "  排序值 ";
    for(i = 1;i < 11;i++)
        DataGrid->Cells[0][i] = IntToStr(i);
    DataGeneration();
    Clean();
}

//---------------------------------------------------------------------------

void __fastcall TSelForm::DataGeneration()
{
    randomize();
    for(int i = 0;i < 10;i ++)
    {
        Array[i] = rand()%20+1;
        DataGrid->Cells[1][i+1] = IntToStr(Array[i]);
        DataGrid->Cells[2][i+1] = IntToStr(Array[i]);
        DataGrid->Refresh();
    }
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::Initialize()
{
    Canvas->Pen->Color = clBlue;
    Canvas->Brush->Color = clRed;
    Canvas->Pen->Mode = pmNotXor;
    for(int k = 0;k < 10;k++)
        Canvas->Rectangle(160,37+k*21,160+8*Array[k],42+k*21);
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::Clean()
{
    Canvas->Pen->Mode = pmCopy;
    Canvas->Brush->Color = clBtnFace;
    Canvas->Pen->Color = clBtnFace;
    Canvas->Rectangle(160,26,350,250);    //覆盖画图区域
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::DataGenerateClick(TObject *Sender)
{
    DataGeneration();
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::DisplayClick(TObject *Sender)
{
	int i,j,small,temp,k;
    Clean();
    Initialize();
	for(i = 0;i < 9;i++)
	{
		small = i;
		for(j = i+1;j < 10;j++)             //查找当前最小值
            if(Array[j] < Array[small])
			{
                small = j;
            }
        if(small != i)
        {
            //等待
            Sleep(DisplayInterval);
            //覆盖
            Canvas->Rectangle(160,37+i*21,160+8*Array[i],42+i*21);
            Canvas->Rectangle(160,37+small*21,160+8*Array[small],42+small*21);
            //排序
            temp = Array[i];
			Array[i] = Array[small];
			Array[small] = temp;
            //在排序值对应的列中刷新进行交换的数据
            DataGrid->Cells[2][i+1] = IntToStr(Array[i]);
            DataGrid->Cells[2][small+1] = IntToStr(Array[small]);
            DataGrid->Refresh();
            //重画
            Canvas->Rectangle(160,37+i*21,160+8*Array[i],42+i*21);
            Canvas->Rectangle(160,37+small*21,160+8*Array[small],42+small*21);
        }
	}
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::ExitClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

void __fastcall TSelForm::TrackBar1Change(TObject *Sender)
{
    DisplayInterval = 1100-TrackBar1->Position;
}
//---------------------------------------------------------------------------


void TSelForm::Run()
{
	int i,j,small,temp,k;
    Initialize();
	for(i = 0;i < 9;i++)
	{
		small = i;
		for(j = i+1;j < 10;j++)             //查找当前最小值
            if(Array[j] < Array[small])
			{
                small = j;
            }
        if(small != i)
        {
            //等待
            Sleep(DisplayInterval);
            //覆盖
            Canvas->Rectangle(160,37+i*21,160+8*Array[i],42+i*21);
            Canvas->Rectangle(160,37+small*21,160+8*Array[small],42+small*21);
            //排序
            temp = Array[i];
			Array[i] = Array[small];
			Array[small] = temp;
            //在排序值对应的列中刷新进行交换的数据
            DataGrid->Cells[2][i+1] = IntToStr(Array[i]);
            DataGrid->Cells[2][small+1] = IntToStr(Array[small]);
            DataGrid->Refresh();
            //重画
            Canvas->Rectangle(160,37+i*21,160+8*Array[i],42+i*21);
            Canvas->Rectangle(160,37+small*21,160+8*Array[small],42+small*21);
        }
	}
}