Модуль «Про автора» Unit3.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm3::Button1Click(TObject *Sender)

{

Close();

}

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

Модуль «Задание» Unit2.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::view_zadanClick(TObject *Sender)

{ char*ffname;

OpenDialog1->Filter="Doc files(*.rtf)|*.rtf"; //используем фильтр отбора файлов

if(OpenDialog1->Execute())ffname=OpenDialog1->FileName.c_str();

RichEdit1->Lines->LoadFromFile(ffname);

Form2->Caption="RichEdit1 называется-"+AnsiString(ffname);

RichEdit1->Modified=false;

}

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

void __fastcall TForm2::Sav_modClick(TObject *Sender)

{char*ffname;

SaveDialog1->Filter="Doc files(*.rtf)|*rtf";

if(SaveDialog1->Execute())

RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);

RichEdit1->Modified=false;

}

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

void __fastcall TForm2::Ex_itClick(TObject *Sender)

{int r;

if(RichEdit1->Modified) //текст был изменён

{ r=MessageDlg("Текст был изменен.\n Сохранить изменения?",

mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0);

if(r==mrYes) //пользователь щелкнул на кнопке Yes

Sav_modClick(Sender);

}

RichEdit1->Clear();

Close();

}

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

void __fastcall TForm2::FormCreate(TObject *Sender)

{

RichEdit1->Clear();

}

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

void __fastcall TForm2::Font_styleClick(TObject *Sender)

{

if (FontDialog1->Execute())

{RichEdit1->SelAttributes->Color=FontDialog1->Font->Color;

RichEdit1->SelAttributes->Size=FontDialog1->Font->Size;

RichEdit1->SelAttributes->Name=FontDialog1->Font->Name;

RichEdit1->SelAttributes->Style=FontDialog1->Font->Style;

}

}

Модуль «Заставка» Unit4.Cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::Timer1Timer(TObject *Sender)

{

Close();

}

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

Вывод

Выполнив данную курсовую работу, я приобрела практические навыки разработки библиотек подпрограмм для обработки массивов в C++ Builder.

Производить запись в файл структур, выводить содержимое в компонент StringGrid.

Формировать динамический массив структур из данных бинарного файла.

С помощью подпрограмм научился формировать и вычислять количество элементов массива.