Bei TList, Record auf Datenänderung reagieren

[himitsu]

Zitat von RWarnecke:

Wäre das sowas wie in Beitrag #16 von wicht ?

Ja, nur würde ich, bezüglich einer besseren Trennung, eine Protected-Methode "DoChange" in TGesellschafterObjListe einfügen und dann bei Veränderungen in TGesellschaftsname dieses aufrufen

Delphi-Quellcode:

if Assigned(FList) then
  FList.DoChange(Self);

Delphi-Quellcode:

procedure TGesellschafterObjListe.DoChange(Sender: TGesellschaftsname);
begin
  if Assigned(FOnChange) then
    FOnChange(Self, Sender);
end;

procedure TGesellschafterObjListe.Notify(Ptr: Pointer; Action: TListNotification);
begin
  if Action = lnAddted then
    DoChange(TGesellschaftsname(Ptr));
  inherited;
end;