Приложение 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();

}