VPF::Слежение за модификацией объекта

December

Дата 29.4.2006, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Greetings All!

Есть какой-то объект, наследник от TObject. Простой, но с кучей свойств. Эти свойства могут хаотично изменяться в куче мест.
Есть задача - отследить, когда объект изменился (то есть хотя бы одно свойство) и отреагировать. Хочется сделать это наиболее элегантно, с минимальными затратами в кодописании и минимальными усилиями по поддержке системы отслеживания в будущем, когда будут добавляться новые свойства. Программа минимум - прикрутить фнкцию IsModified, идеальный вариант - встроить какой-нить event ObjectModified.

У кого какие есть предложения на эту тему? Может, кто-нить знает какой-нить интерфейс, от которого удобно унаследоваться для выполнения этой задачи?

--------------------

Для друзей с винграда - скидки на разработку сайтов

Демо

Дата 29.4.2006, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Один из вариантов:

Код


type
  TMyClassField=(mcfName,mcfAddress);
  TMyClassEvent=procedure(Sender: TObject; ClassField: TMyClassField);

  TMyClass=class
  private
    FName: String;
    FAddress: String;
    FModifyEvent: TMyClassEvent;
    procedure ModifyEvent(ClassField: TMyClassField);
    procedure SetAddress(const Value: String);
    procedure SetName(const Value: String);
  public
    property Name: String read FName write SetName;
    property Address: String read FAddress write SetAddress;
    property Event: TMyClassEvent read FModifyEvent write FModifyEvent;
  end;

Код


implementation
procedure TMyClass.ModifyEvent(ClassField: TMyClassField);
begin
  if Assigned(FModifyEvent) then FModifyEvent(Self,ClassField);
end;

procedure TMyClass.SetAddress(const Value: String);
begin
  if FAddress=Value then Exit;
  FAddress := Value;
  ModifyEvent(mcfAddress);
end;

procedure TMyClass.SetName(const Value: String);
begin
  if FName=Value then Exit;
  FName := Value;
  ModifyEvent(mcfName);
  FName := Value;
end;

--------------------

December

Дата 29.4.2006, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Демо, это очень трудоёмкий вариант. У меня в каждом классе около 50 свойств, классов - 3 штуки. Каждый вот так перелопачивать - это долго smile

--------------------

Для друзей с винграда - скидки на разработку сайтов

Yanis

Дата 30.4.2006, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

И всё таки навреное это самый простой способ да к тому же более гибкий. Так что смотри код Yanis'а и код Демо.
http://forum.vingrad.ru/index.php?showtopic=91976

--------------------

*щёлк*

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »