generics Destructor of Object in TObjectList<k,v> never gets called despite doOwnsValues

[omnibrain 14]

Can someone help me? I use a TObjectDictionary<integer,TmesData> with doOwnsValues, but if I remove an object via .Remove(key) my destructor does not get called. My class declaration:

TmesData = class
  private
    procedure socketDataAvailable(Sender: TObject; ErrCode: Word);
  public
    payload: string;
    sendCount: integer;
    sendSocket: TWSocket;
    log: ts;
    sendTime: tdatetime;
    constructor create(alog: ts; const ip,port,apayload: string);
    destructor Destroy; //close and free socket
    function doConnect():boolean;
    function doSend():integer;
  end;

On my form I do

//create sendList
sendList:=TObjectDictionary<integer,TmesData>.Create([doOwnsValues]);
// add objects
sendlist.Add(strtoint(seq),TmesData.create(doLog,edIP.Text,edPort.Text,mes))

later I do processing with

for var seq in sendlist.Keys do
  begin
  //do processing
  //...
  //remove current object after processing
  sendlist.Remove(seq);
end;

The destructor of my TmesData objects never gets called. I must miss something obvious.

[Vandrovnik 202]

destructor Destroy; override;

[omnibrain 14]

2 minutes ago, Vandrovnik said:

destructor Destroy; override;

Ah, yes. Obviously. I generally don't write my own objects (or they are only "records on steroids, so I don't need a custom destructor)

[Der schöne Günther 306]

Not trying to be a smartass, but doesn't the compiler warn you explicitly?

 

Like 

Quote

[dcc32 Warning] Project1.dpr(7): W1010 Method 'Destroy' hides virtual method of base type 'TObject'

 

Edited May 23, 2023 by Der schöne Günther

[David Schwartz 414]

12 hours ago, Der schöne Günther said:

Not trying to be a smartass, but doesn't the compiler warn you explicitly?

 

Some of us would notice this immediately because we make a concerted effort to minimize Hints and Warnings that the compiler produces. 

 

But for those who aren't so inclined, it's just another bit of noise to be ignored.