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?
