TDictionary objekte werden nicht freigegeben

[Bummi]

ansonsten kannst Du nachrüsten

Delphi-Quellcode:

procedure TForm3.VNotify(Sender: TObject; const Item: Ttest;  Action: TCollectionNotification);
begin
  if Action=cnRemoved then Item.Free;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
 d:TDictionary<String,Ttest>;
begin
   d:=TDictionary<String,Ttest>.Create;

   try
     d.OnValueNotify := VNotify;
     d.Add('Test 1',TTest.Create('1. Wert'));
     d.Add('Test 2',TTest.Create('2. Wert'));
     d.Remove('Test 1');
   finally
     Showmessage('vor free') ;
     d.Free;
   end;
end;