How do I free the memory in this case?

Question

I have this type definition:

KMenuClass = class
    private
      pMenuID: String;
    public
      property MenuID: String read pMenuID;
      constructor Create(const paraMenuID: String);
  end;

Then I do this:

constructor KMenuClass.Create(const paraMenuID: String);
begin
  pMenuID:= paraMenuID;
end;

procedure TfrmPermissions.FormCreate(Sender: TObject);
begin
  clSetup.Items.AddObject('ant', KMenuClass.Create('a007'));
  clSetup.Items.AddObject('cat', KMenuClass.Create('x123'));

end;

The above two entries aer only test entries. I'm really looking at about 50 items. clSetup is of type TCheckListBox and I'm basically storing a second string along with the Items string.

I can output a specific item like this:

Var
  ThisItem : KMenuClass;
.
.
.
  ThisItem := clSetup.Items.Objects[clSetup.ItemIndex] as KMenuClass;

  ShowMessage(clSetup.Items[clSetup.ItemIndex] + ' : ' + ThisItem.MenuID);

But how do I dispose of my objects associated with each list item? Does it auto-dispose when I close the form?

Thanks!

score 1 · Accepted Answer · answered Dec 14 '13 at 21:31

1

Manually iterating over items.objects, items.count times and freeing each object is probably the only way, since the property is probably tstrings, and doesn't have an ownsobjects property (that only comes in at tstringlist).

answered Dec 14 '13 at 21:31

Marco van de Voort

25,628
5
56
89

Thank you for the answer. I get your point, but curiously, is it wrong if I expect it to self-dispose when the form closes? – itsols Dec 15 '13 at 01:51
Should I use `ThisIem.Free` or `ThisItem.FreeInstance`? – itsols Dec 15 '13 at 03:36
Yes, my guess is that they won't be freed upon closer. The system doesn't know if they are owned or references. and .free – Marco van de Voort Dec 15 '13 at 10:34

How do I free the memory in this case?

1 Answers1