Событие при изменении объекта TObjectList

[SCRIBE]

Привет.

Был бы рад за помощь в решении маленькой задачки.

Есть объект (TMyObject), есть список с этими самими объектами (TObjectList<TMyObject>).

Как из списка узнать что объект изменили? В смысле изменили какое-то его свойство...

Пример:

Код: (Delphi)

TMyObject = class
  oName: string;
end;

TMyObjectList = class(TObjectList<TMyObject>)
 
end;

procedure Form1.Button1.Click(Sender: TObject);
var
  Obj: TMyObject;
  List: TMyObjectList;
Begin
 List:= TMyObjectList.Create;
 Obj:= TMyObject.Create;
 List.Add(Obj);
 List[0].oName:= 'Ky'; // Вот тут неплохо бы узнать что объекту в списке изменили свойство
end;

Вообще задача в сохранении значений этих объектов сразу же после изменения. Беда в том что сохраняет все значения объект списка, а не сам единичный объект (там то это можно отловить через property т.е. сеттер). Можно конечно сделать специальный метод для изменения объектов в списке, но все равно их можно будет и так изменить, без этого метода, а это нехорошо  И просто вызывать метод сохранения после изменения тоже не хочется, в общем такой каприз, список должен сам как-то узнать что мир уже не станет прежним   

[Алексей++]

..::SCRIBE::.., определись, критично ли время (и/или количество) сохранения этого списка ? Скажем, к примеру, для юзера эти несчастные 10 миллисекунд - тьфу, можно просто определить факт доступа к настройкам и потом всё разом сохранить.

Или же время критично ?

[SCRIBE]

Время не особо критично, количество элементов будет не слишком большое (штук 20 макс.). Но сам способ как это можно сделать интересен.

[Алексей++]

..::SCRIBE::.., наверное, кроме как все мемберы в функции доступа оборачивать (и там флажки взводить или счётчики вести), особо ничего не придумаешь

[SCRIBE]

Там в объекте TObjectList нашел методы OnNotify/Notify, их нельзя использовать? Пока не нашел внятной информации по ним.

[Алексей++]

..::SCRIBE::.., я не знаю ) Пробуй http://keeper89.blogspot.ru/2011/07/delphi-2.html#a333

[zubr]

..::SCRIBE::.., ну раз объект твоего собственного класса, то ты можешь делать с ним все что хочешь. Создай свое событие данного класса, которое вызывается при изменении нужного свойства. Событие вызывать к примеру в функции записи свойства.

Код:

TMyClass = class(TObject)
private
  FName: string;
  FOnNameEvent: TNotifyEvent;
private
  procedure SetName(value: string);

public
  property Name: string read FName write SetName;
  propery OnNameEvent read FOnNameEvent write FOnNameEvent;
end;

procedure TMyClass.SetName(value: string);
begin
  FName := value;

  if Assigned(FOnNameEvent) then
  FOnNameEvent(Self); 
end;


procedure MyNameEvent(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to MyListOfMyClassObjects.Count -1 do
  begin
    if Sender = MyListOfMyClassObjects.Item[i] then
    begin
       MessageBox(0, PChar(TMyClass(MyListOfMyClassObjects.Item[i]).Name), nil, MB_OK);
       break;
    end;
  end;
end;

var
  MyObject: TMyClass;

  MyObject := TMyClass.Create;
  MyObject.OnNameEvent := MyNameEvent;
  MyListOfMyClassObjects.Add(MyObject);  

[SCRIBE]

Да, то что нужно! Спасибо большое.

Добавлено через 6 минут и 18 секунд:
И еще, обязательно писать 2 раза private для свойств и для методов? Или это просто опечатка?)

[zubr]

Это для удобства. Отдельно приват для переменных и отдельно для методов, чтобы их отделить. Но это на любителя как говорится.

З.Ы. Код тут вообще показан как схема, а не как абсолютное руководство к действию.

[SCRIBE]

Ясно, все же сакральный смысл есть
Ну, почти доделал, сейчас протестим... Компилируется, уже хорошо)))

Добавлено через 34 минуты и 7 секунд:
Дополнение: процедура события должна быть методом какого-то объекта (MyNameEvent). Иначе ошибка.

[zubr]

Дополнение: процедура события должна быть методом какого-то объекта (MyNameEvent). Иначе ошибка.

Не обязательно. Это должен быть метод класса, не обязательно того же. К примеру, это может быть метод формы:

Код:

procedure TForm1.MyNameEvent(Sender: TObject);

Кстати, можно вместо кода:

Код:

for i := 0 to MyListOfMyClassObjects.Count -1 do
  begin
    if Sender = MyListOfMyClassObjects.Item[i] then
    begin
       MessageBox(0, PChar(TMyClass(MyListOfMyClassObjects.Item[i]).Name), nil, MB_OK);
       break;
    end;
  end;

сделать проще:

Код:

MessageBox(0, PChar(TMyClass(Sender).Name), nil, MB_OK);

[SCRIBE]

Немного неправильно выразился, имел ввиду именно то что вы сказали, любой метод, но не процедура.