46_____________________________________________Глава 1

void _fastcall TFormI::F2(char Ch)
{

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

}

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

void F3(char Ch)
{

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

)

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

void   fastcall TFormI::ButtonlClick(TObject *Sender)

(

// Переменная Ch4 доступна только внутри данной функции

char Ch4;

Chl = ' - ' ;

Ch2 = 'A' ;

Ch3 = 'В' ;

Ch4 = 'С';

Labell->Caption = "";

Fl(Chl) ;

F2(Ch2) ;

F3(Ch3);

F4(Ch4);

Labell->Font->Color = cIRed;

)

Помимо функции ButtonlClick обработки щелчка на кнопке Buttoni в код за-
несено в разные места модуля еще несколько одинаковых функций: Fl — F4, и не-
сколько переменных символьного типа: Chl — Ch4. Сейчас мы не будем разбира-
ться подробно в самих функциях. Нам важно понять, как из функций обращаться
к различным объектам и переменным. Но краткое описание того, что делают эти
функции, надо дать.

У компонента — метки типа TLabel имеется свойство Caption — надпись на
метке. Каждая из функций Fl — F4 берет значение этой надписи, прибавляет к
ней символ, переданный в нее как параметр Ch, прибавляет далее символ, храня-
щийся в переменной Chl, и возвращает надпись с этими добавлениями обратно в
метку.

Обработчик щелчка на кнопке — функция TForml::ButtonlClick, задает сим-
вольным переменным Chl — Ch4 значения символов <»-», «А», «В» и «С», затем
очищает свойство Caption метки Labell, занося в него пустую строку, а затем поо-
чередно обращается к функциям Fl — F4, передавая в них в качестве параметров
различные символы. В заключение надпись метки окрашивается в красный цвет.
Для этого используется свойство Font — шрифт объекта Labell. Это свойство само
является объектом, имеющим свойство Color — цвет. Значение этого свойства из-
меняет последний оператор процедуры TForml::ButtonlClick.

1.6.5.2 Доступ к свойствам и методам объектов

Рассмотрим теперь, как получить из программы доступ к свойствам и методам
объектов. Доступ к интересующим нас объектам — компонентам можно получить
через объявленные в заголовочном файле модуля указатели на эти объекты. На-
пример, в объявлении класса формы TFormI в заголовочном файле имеется строка

TLabel *Labell;

Эта строка объявляет Labell как указатель на метку — объект типа TLabel.
Если вы плохо представляете, что такое указатели, посмотрите в главе 12 раздел
12.7, или просто отнеситесь к тому, о чем будет рассказано ниже, как к некоторо-
му обязательному формализму. Честно говоря, программы в C+4-Builder часто
можно писать, не задумываясь о сути этого формализма.