Принципы объектно-ориентированного визуального программирования_____45

_published:     // IDE-managed Components
TLabel * Label 1;

TButton *Buttonl;

void_fastcall ButtonlClick(TObject *Sender);

private:         // User declarations
//Функция Fl и переменна Ch6 доступны только в данном модуле

void _fastcall Fl(char Ch) ;

char Ch6;

public:          // User declarations

_fastcall TFormI(TComponent* Owner) ;

// Переменная Chl и Функция F2 доступны для объектов
// любых классов и для других модулей, но со ссылкой
// на объект

char Chl;

void _fastcall F2(char Ch);

};

//—————————————————————————-

extern PACKAGE TFormI *Forml;

// Глобальная переменная Ch2 и функция F3 доступны в пределах
// данного модуля; переменная Ch2 доступна в других модулях,
// если определена там со спецификацией extern;

// функция F3 доступна в Других модулях, если там содержится
// ее прототип

char Ch2;

void F3(char Ch) ;

ttendif

Файл реализации:

//——————————————————————

ftinclude <vcl.h>
ttpragma hdrstop

^include "Unitl.h"

//———————————————————————

ttpragma package(smart init)
ttpragma resource "*.dfm"
TFormI *Forml;

//—————————————————————————

_fastcall TPormI::TFormI(TComponent* Owner)

: TForm(Owner)
(

t

//———————————————————————

// Глобальная переменная Ch3 и функция F4 доступны в пределах
// данного модуля; переменная Ch3 доступна в других модулях,
// если определена там со спе.цификацией extern;

// функция F4 доступна в других модулях, если там содержится
// ее прототип
char Ch3;

void F4(char Ch)
{

Forml->Labell->Caption = Forml->Labell->Caption + Ch + Forml->Chl;

)

//———————————————————————

void _fastcall TFormI::Fl(char Ch)
<

Labell->Caption = Labell->Caption + Ch + Chl;

//———————————————————————