TSynDictionary: how release objects instances in the Values TDynArray?

camu72 · 2020-07-09 15:45:07

Hi guys, I try to do something like that:
Create a TSynDictionary with images like values, do something with that, an then release de TSynDictionary instance, but before, release the images ( or objects instances in other cases ).
This is the pseudocode:

Type
  TBitmapDynArray = array of TBitmap;
  ....
procedure myProcedure
var
  ImagesDict: TSynDictionary;
begin  
  ImagesDict := TSynDictionary.Create(TypeInfo(TIntegerDynArray),TypeInfo(TBitmapDynArray));
  
  { Loads images from a zip in a rc file }
  LoadImagen(34, 'ImgBuscar12.bmp');
  LoadImagen(15, 'ImgAgregar12.bmp');
  ...
  LoadImagen(12, 'ImgEditar12.bmp');
  
  ....
  Do_a_lot_of_thing_WithImagesIn_ImagesDict;
  ....  
  
  { magesDict.forEach(MyImagesInValues) do
    EachImage.Free } << How do somethin like that?
  // I mean, release the TObjects instances (Bitmaps in this case ) in the 
  // Values TDynArray of a TSynDictionary before free it?
  
  ImagesDict.Free; 
end;

I don't understand de use of ForEach in TSynDictionary... Can samone explainme or pointme samples?
Thanks in advance!

ab · 2020-07-09 16:29:48

If the dynamic array was registered as a T*ObjArray, then all instances will be freed.

So define and register a TBitmapObjArray = array of TBitmap.

camu72 · 2020-07-10 00:40:13

Thanks ab, that works...

Junior/RO · 2020-07-16 22:19:31

@ab

Register TBitmapObjArray where?

ab · 2020-07-17 07:32:34

Usually, in the "initialization" section of the unit defining the record type.

Junior/RO · 2020-07-20 21:00:50

You mean TJSONSerializer.RegisterObjArrayForJSON()?

ab · 2020-07-20 21:02:17

Yes

mORMot Open Source

#1 2020-07-09 15:45:07

TSynDictionary: how release objects instances in the Values TDynArray?

#2 2020-07-09 16:29:48

Re: TSynDictionary: how release objects instances in the Values TDynArray?

#3 2020-07-10 00:40:13

Re: TSynDictionary: how release objects instances in the Values TDynArray?

#4 2020-07-16 22:19:31

Re: TSynDictionary: how release objects instances in the Values TDynArray?

#5 2020-07-17 07:32:34

Re: TSynDictionary: how release objects instances in the Values TDynArray?

#6 2020-07-20 21:00:50

Re: TSynDictionary: how release objects instances in the Values TDynArray?

#7 2020-07-20 21:02:17

Re: TSynDictionary: how release objects instances in the Values TDynArray?

Board footer