![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#8
|
|||
|
|||
![]() переменной - никак. а вот если их инкапсулировать в класс, то сами переменные можно будет спрятать, а для свойства написать сеттер, который и произведет все операции:
Код:
T2Int = class private FInt1, FInt2 : Integer; procedure SetInt1(Value : Integer); public property Int1 : Integer read FInt1 write SetInt1; property Int2 : Integer read FInt2 write FInt2; end; ... procedure T2Int.SetInt1(Value : Integer); begin If (FInt = 5) and (Value < 5) Then Int2 := 1; FInt1 := Value; end; |