main.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"

#include "BubbleSort.h"
#include "InsertSort.h"
#include "SelectSort.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
    SortThrd1 = 0;
    SortThrd2 = 0;
    SortThrd3 = 0;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SelectSortClick(TObject *Sender)
{
    SelForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::InsertSortClick(TObject *Sender)
{
    InsForm->Show() ;
}
//---------------------------------------------------------------------------

//多演程演示
void __fastcall TMainForm::SortMultiThreadStart(TObject *Sender)
{
    SortThrd1->Resume();
    SortThrd2->Resume();
    SortThrd3->Resume();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SortMultiThreadPre(TObject *Sender)
{
    SortThrd1 = new Sort(1,true);
    SortThrd2 = new Sort(2,true);
    SortThrd3 = new Sort(3,true);
    InsForm->Show();    //---- Place thread code here ----
    BubForm->Show();
    SelForm->Show();   //---- Place thread code here ----
}

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

void __fastcall TMainForm::BubbleSortClick(TObject *Sender)
{
    BubForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SequelSearchClick(TObject *Sender)
{
    SeqForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::BinarySearchClick(TObject *Sender)
{
    BinForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::BlockSearchClick(TObject *Sender)
{
    BloForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SearchMultiThrdPreClick(TObject *Sender)
{
    Randomize();
    int temp;
    temp = rand()%50 + 1;            //目标值最大为50
    SearchThrd1 = new Search(1,true);
    SearchThrd2 = new Search(2,true);
    SearchThrd3 = new Search(3,true);
    SeqForm->Show();    //---- Place thread code here ----
    SeqForm->Transport(temp);
    SeqForm->DataGeneration();
    BinForm->Show();
    BinForm->Transport(temp);
    BinForm->DataGeneration();
    BloForm->Show();   //---- Place thread code here ----
    BloForm->Transport(temp);
    BloForm->DataGeneration();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SearchMultiThrdStartClick(TObject *Sender)
{
    SearchThrd1->Resume();
    SearchThrd2->Resume();
    SearchThrd3->Resume();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::ExitClick(TObject *Sender)
{
    MainForm->Close();
}
//---------------------------------------------------------------------------