mORMot Open Source

dcoun

Member

From: Crete, Greece

Registered: 2020-02-18

Posts: 463

ExceptionMessage="TSynDictionary.Add fValues.Add"

type
  Danaforavalue=packed record o:integer; end;
  Aanaforavalues=Tarray<Danaforavalue>;

procedure TForm3.Button1Click(Sender: TObject);
var
  i:integer;
  defnormals:ikeyvalue<integer,Aanaforavalues>;
  defmondefn:Aanaforavalues;
begin defnormals:=collections.NewPlainKeyValue<integer,Aanaforavalues>;
defnormals.Data.LoadFromJson('{"258":{"o":4}}');
setlength(defmondefn,2);
i:=1;
defnormals.tryadd(i,defmondefn);
end;

Last line, tryadd, gives exception. Why?

danielkuettner

Member

From: Germany

Registered: 2014-08-06

Posts: 398

Re: ExceptionMessage="TSynDictionary.Add fValues.Add"

I would try with:

{"258":[{"o":4}]}

dcoun

Member

From: Crete, Greece

Registered: 2020-02-18

Posts: 463

Re: ExceptionMessage="TSynDictionary.Add fValues.Add"

You have right, it is from previous entries when it was not an array and saved as a record