insertsort.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "InsertSort.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInsForm *InsForm;
//---------------------------------------------------------------------------
__fastcall TInsForm::TInsForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TInsForm::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 TInsForm::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 TInsForm::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 TInsForm::Clean()
{
    Canvas->Pen->Mode = pmCopy;
    Canvas->Brush->Color = clBtnFace;
    Canvas->Pen->Color = clBtnFace;
    Canvas->Rectangle(158,26,350,250);     //覆盖画图区域
}
//---------------------------------------------------------------------------


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


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

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

void __fastcall TInsForm::DisplayClick(TObject *Sender)
{
	int i,j,temp,k;
    Clean();
    Initialize();
	for(i = 0;i < 10;i ++)
	{
		temp = Array[i+1];
		int j = i;
        while(j > -1 && temp < Array[j])
        {
            //等待
            Sleep(DisplayInterval);
            //覆盖j和j+1行对应的图形表示
            for(k = j;k <= j+1;k ++)
                Canvas->Rectangle(160,37+k*21,160+8*Array[k],42+k*21);
            //Sleep(1000);              // 设置此项可以清晰观察重画过程
            Array[j+1] = Array[j];
            Array[j] = temp;
            //刷新数据项
            DataGrid->Cells[2][j+1] = IntToStr(Array[j]);
            DataGrid->Cells[2][j+2] = IntToStr(Array[j+1]);
            DataGrid->Refresh();
            //重画j和j+1行
            for(k = j;k <= j+1;k ++)
                Canvas->Rectangle(160,37+k*21,160+8*Array[k],42+k*21);
            j--;
        }
    }
}
//---------------------------------------------------------------------------

void TInsForm::Run()
{
	int i,j,temp,k;
    Initialize();
	for(i = 0;i < 10;i ++)
	{
		temp = Array[i+1];
		int j = i;
        while(j > -1 && temp < Array[j])
        {
            //等待
            Sleep(DisplayInterval);
            //覆盖j和j+1行对应的图形表示
            for(k = j;k <= j+1;k ++)
                Canvas->Rectangle(160,37+k*21,160+8*Array[k],42+k*21);
            //Sleep(1000);              // 设置此项可以清晰观察重画过程
            Array[j+1] = Array[j];
            Array[j] = temp;
            //刷新数据项
            DataGrid->Cells[2][j+1] = IntToStr(Array[j]);
            DataGrid->Cells[2][j+2] = IntToStr(Array[j+1]);
            DataGrid->Refresh();
            //重画j和j+1行
            for(k = j;k <= j+1;k ++)
                Canvas->Rectangle(160,37+k*21,160+8*Array[k],42+k*21);
            j--;
        }
    }
}