Приложение 2. Описание общих структур файлов проекта

Общая структура файла текста программы Unit*.cpp

// Директивы препроцессора

#include < vcl.h> // Подключение файла библиотеки VCL

#pragma hdrstop // Установки компилятора

#include " Unit1.h" // Подключение заголовочного файла

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm1 *Form1; // Объявление объекта формы

//--------------------------- Вызов конструктора формы --------------------------

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

}

// Описания глобальных объектов Пользователя

// Набор функций-обработчиков, использующихся в проекте

Структура заголовочного файла Unit*.h

// Директивы препроцессора

#ifndef Unit1H

#define Unit1H

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

#include < Classes.hpp>

#include < Controls.hpp>

#include < StdCtrls.hpp>

#include < Forms.hpp>

// Объявление класса формы

class TForm1: public TForm

{

Окончание прил. 2

// Компоненты, размещенные на форме

__published: // IDE-managed Components

TLabel *Label1;

TEdit *Edit1;

TMemo *Memo1;

TButton *Button1;

private: // User declarations

// Объявления функций, типов переменных, доступных только в данном модуле

public: // User declarations

// Объявления функций, типов и переменных, доступных в проекте

__fastcall TForm1(TComponent* Owner);

};

extern PACKAGE TForm1 *Form1;

// Объявления элементов, которые не включаются в данный класс

#endif

Общая структура файла проекта Project*.cpp

// Директивы препроцессора

#include < vcl.h>

#pragma hdrstop

/*- директива #pragma служит для установки параметров компилятора. Эти установки могут быть определены и другим способом, – используя диалог Project Options. */

// Подключение файлов форм и файлов ресурсов

USEFORM(" Unit1.cpp", Form1);

USEFORM(" Unit2.cpp", Form2);

// Главная программа

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

// Инициализация

Application-> Initialize();

// Создание объектов форм

Application-> CreateForm(__classid(TForm1), & Form1);

Application-> CreateForm(__classid(TForm2), & Form2);

// Выполнение программы

Application-> Run();

}