Änderung einer Eigenschaft registrieren

[meierotto]

Hallo ,

ich habe ein wahrscheinlich eher simples Problem, Denkfehler oder so. Ich möchte gern ein Dirty-Flag setzen, wenn in meiner Klasse an einer Eigenschaft etwas geändert wurde. Es handelt sich dabei um ein Array von Records. Ich werd am besten mal Teile des Codes anzeigen:

Delphi-Quellcode:

TTskKommentare = class(TObject)
  private
    _savestat:smallint;  //Besagt, ob und wie gespeichert werden muss
    PKommentare:TKommentarListe;  //Array von TKommentar-Records
    procedure PKommentarChange(KL:TKommentarListe);
  public
    ...
    property Kommentare:TKommentarListe read PKommentare write PKommentarChange;
  end;

Delphi-Quellcode:

procedure TTskKommentare.PKommentarChange(KL: TKommentarListe);
begin
  if _savestat<2 then _savestat:=2;  //muss komplett gespeichert werden
  PKommentare:=KL;
end;

Wird nun Ein Kommentar geändert, soll Savestat auf 2 gesetzt werden.
Könnt ihr mir vielleicht auf die Sprünge helfen?