Создание библиотек подпрограмм для обработки массивов

for(i=0;i<=k;i++)

{sg3->Cells[1][i+1]=IntToStr(mas[i].nom);

sg3->Cells[2][i+1]=AnsiString(mas[i].otpr);

sg3->Cells[3][i+1]=AnsiString(mas[i].prib);

sg3->Cells[4][i+1]=AnsiString(mas[i].napr);

sg3->Cells[5][i+1]=IntToStr(mas[i].rast);

}

for(int j=1;j<=k;j++)

sg3->Cells[0][j]=IntToStr(j);

sg3->RowCount=k+1;

 

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Memo1->Clear();

int i=0,k=0;

f=fopen("a.dat","rb+");

f2=fopen("b.txt","at+");

while(fread(&q,sizeof(q),1,f)>0)

if(TTime(q.prib)>TTime("12:00"))

fprintf(f2,"%i %s %s %s %i\n",q.nom,q.prib,q.otpr,q.napr,q.rast);

sg2->RowCount=i;

fclose(f);

fclose(f2);

Memo1->Lines->LoadFromFile("b.txt");

 

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form2->Show();

}

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

 

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form3->Show();

}

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

 

void __fastcall TForm1::N2Click(TObject *Sender)

{

f=fopen("a.dat","wb");

f2=fopen("b.txt","wt");

fclose(f);

fclose(f2);

}

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

 

void __fastcall TForm1::N3Click(TObject *Sender)

{

Close();

}

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

 

void __fastcall TForm1::FormCreate(TObject *Sender)

{

f=fopen("a.dat","wb");

Form4=new TForm4(this);

  Form4->ShowModal();

  Form4->Free();

}

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

 

Модуль «Про автора» 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 TForm4::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::TForm4(TComponent* Owner)

        : TForm(Owner)

{

}

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

void __fastcall TForm4::Timer1Timer(TObject *Sender)

{

  Close();     

}

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вывод

 

 

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

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

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список  использованной литературы:

 

1. Методическое пособие «Курсовая работа по дисциплине ”Информатика” Одесса 2007,  И.Г.Швайко, Л.М.Буката;
2. Методичні посібники для практичних та лабораторних занять з      дисципліни « Інформатика ».
3. Конспект лекций;
4. Учебник для ВУЗов «C++ Теория и практика». Учебное пособие/[О.Г.Трофименко, Ю.В.Прокоп, И.Г.Швайко, Л.М.Буката и др.] Одесса 2011.