Показать сообщение отдельно
  #8  
Старый 09.07.2010, 03:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

переменной - никак. а вот если их инкапсулировать в класс, то сами переменные можно будет спрятать, а для свойства написать сеттер, который и произведет все операции:
Код:
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;
Ответить с цитированием