7. Проаналізувати заданий фрагмент коду програмного модуля і визначити:
- загальне призначення модуля;
- склад візуальних компонетів та іх призначення;
- склад процедур – обробників подій та їх призначення;
- засоби контролю введення та обробки даних.
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (i=0; i<TreeView1->Items->Count; i++)
if (TreeView1->Selected->Text == TreeView1->Items->Item[i]->Text)
{if (TreeView1->Items->Item[i]->Level==0)
TreeView1->Items->AddChild(TreeView1->Items->Item[i],
InputBox("Введення спеціальності", "Введіть назву спеціальності", ""));
else
{if (TreeView1->Items->Item[i]->Level==2)
ShowMessage("Для даного рівня створити вузол неможливо");
else
TreeView1->Items->AddChild(TreeView1->Items->Item[i],
InputBox("Введення групи", "Введіть назву групи", ""));
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
TreeView1->LoadFromFile("List.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1DblClick(TObject *Sender)
{
for (i=0; i<TreeView1->Items->Count; i++)
if (TreeView1->Selected->Text == TreeView1->Items->Item[i]->Text)
{if (TreeView1->Items->Item[i]->Level==0)
TreeView1->Items->AddChild(TreeView1->Items->Item[i],
InputBox("Введення спеціальності", "Введіть назву спеціальності", ""));
else
{if (TreeView1->Items->Item[i]->Level==2)
ShowMessage("Для даного рівня створити вузол неможливо");
else
TreeView1->Items->AddChild(TreeView1->Items->Item[i],
InputBox("Введення групи", "Введіть назву групи", ""));
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (i=0; i<TreeView1->Items->Count; i++)
if (TreeView1->Selected->Text == TreeView1->Items->Item[i]->Text)
TreeView1->Items->Delete(TreeView1->Items->Item[i]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TreeView1->SaveToFile("List.txt");
}
//---------------------------------------------------------------------------
8. Для заданого графічного інтерфейсу користувача описати призначення програмного модуля, перелік візуальних компонентів та принципи їх використання. Зписати процедуру для кнопки «Табуляція».
