Код:
...
MyTextVar:= 'Изменяюсь';
Edit1.Text:= MyTextVar; // индикатор
...
Вот такого я и хотел избежать. Ибо таких кусков в коде немерено.
Код:
procedure TForm1.Edit1Change(Sender: TObject);
Отслеживает изменение Edit1.Text
Вот мне бы подошло событие на изменение переменной. Вопрос, как создать сие событие, если это возможно?
Можно было бы, конечно, не использовать отдельную стринговую переменную, а использовать напрямую Edit1.Text, но здесь возникли бы неудобства. Например, не всегда он должен отображать эту переменную. Иногда другую. То есть при изменении переменной каждый раз еще и условие должно выполняться. А порой и не одно. То есть в предложенном
Код:
...
MyTextVar:= 'Изменяюсь';
Edit1.Text:= MyTextVar; // индикатор
...
будет уже
Код:
...
MyTextVar:= 'Изменяюсь';
if Condition1 then
if Condition2 then
Edit1.Text:= MyTextVar; // индикатор
...
Ну да и ладно. Если это великая заморочь, то не стоит оно того. Буду копипастить код.
