Знаю, что должен сам знать, но помогите пожалуйста…. кто может, поясните хотя бы кратно, какая строчка за что отвечает

Знаю, что должен сам знать, но помогите пожалуйста.... кто может, поясните хотя бы кратно, какая строчка за что отвечает

#include
#include
#pragma hdrstop
#include


#include
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TList *Library = new TList;
TMain *Main;

//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
: TForm(Owner)
{

}
//---------------------------------------------------------------------------

int __fastcall SortAvtor(void*Item1,void*Item2)
{
return CompareText(((Book*)Item1)->Avtor,((Book*)Item2)->Avtor);
}

int __fastcall SortNazvanie(void*Item1,void*Item2)
{
return CompareText(((Book*)Item1)->Nazvanie,((Book*)Item2)->Nazvanie);
}

int __fastcall SortData(void*Item1,void*Item2)
{
return CompareText(((Book*)Item1)->Data,((Book*)Item2)->Data);
}

void __fastcall TMain::FormCreate(TObject *Sender)
{

TabSheet2->Show();

StringGrid1->Cells[0][0]="ФИО автора";
StringGrid1->Cells[1][0]="Название книги";
StringGrid1->Cells[2][0]="Год издания";
StringGrid1->Cells[3][0]="Количество экземпляров";

StringGrid2->Cells[0][0]="ФИО автора";
StringGrid2->Cells[1][0]="Название книги";
StringGrid2->Cells[2][0]="Год издания";
StringGrid2->Cells[3][0]="Количество экземпляров";

ComboBox1->Items->Clear();
int nach = 1800;
int konech = 2008;
for(int i = nach;i < = konech;i++)
ComboBox1->Items->Add(IntToStr(i));
ComboBox1->ItemIndex = konech - nach - 5;
}
//---------------------------------------------------------------------------

void __fastcall TMain::AddBtnClick(TObject *Sender)
{
AnsiString Avtor = Edit1->Text;
AnsiString Nazvanie = Edit2->Text;
AnsiString Data = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
String Kolvo = Edit4->Text;

if(Kolvo < 0 )
{
ShowMessage("Неправильный формат");
return;
}

if(Avtor.Trim()==""||Nazvanie.Trim()==""||Data.Trim()==""||Kolvo.Trim()=="")
{
ShowMessage("Заполните все поля");
return;
}
else
{
Book *b1 = new Book(Avtor,Nazvanie,Data,StrToInt(Kolvo));
Library->Add(b1);
}

for(int i = 0;i < Library->Count; i++)
{
Book*b=(Book*)Library->Items;
StringGrid1->Cells[0][i+1] = b->Avtor;
StringGrid1->Cells[1][i+1] = b->Nazvanie;
StringGrid1->Cells[2][i+1] = b->Data;
StringGrid1->Cells[3][i+1] = b->Kolvo;
}
StringGrid1->RowCount = Library->Count+1;
TabSheet1->Show();
Edit1->Text = "";
Edit2->Text = "";
Edit4->Text = "";

}
//---------------------------------------------------------------------------

void __fastcall TMain::DeleteBtnClick(TObject *Sender)
{

if(CheckBox1->Checked)
{
if(StringGrid1->Row != 0)
Library->Delete(StringGrid1->Row-1);
StringGrid1->RowCount = Library->Count+1;
}

else
{
if(StringGrid1->Row != 0)
{
Book*b = (Book*) Library->Items[StringGrid1->Row - 1];
if(b->Kolvo < StrToInt(DelBook->Text))
{
ShowMessage("Выберете меньшее количество книг");
return;
}
if(b->Kolvo == StrToInt(DelBook->Text))
{
Library->Delete(StringGrid1->Row-1);
StringGrid1->RowCount = Library->Count+1;
}
if(b->Kolvo > StrToInt(DelBook->Text))
{
b->Kolvo -= StrToInt(DelBook->Text);
}
}
}

for(int i = 0; i < Library->Count;i++)
{
Book*b = (Book*) Library->Items;
StringGrid1->Cells[0][i+1] = b->Avtor;
StringGrid1->Cells[1][i+1] = b->Nazvanie;
StringGrid1->Cells[2][i+1] = b->Data;
StringGrid1->Cells[3][i+1] = b->Kolvo;
}

StringGrid2->Cells[0][0]="ФИО автора";
StringGrid2->Cells[1][0]="Название книги";
StringGrid2->Cells[2][0]="Год издания";
StringGrid2->Cells[3][0]="Количество экземпляров";
for(int i = 1;i < =Li

  • очень многа букафф...