mORMot Open Source

witya

Member

Registered: 2015-09-25

Posts: 5

[patch] SynCrossPlatformJSON InitFrom VariantDynArray

--- SynCrossPlatformJSON.pas.bak    2017-01-03 08:44:28.709044000 +0700
+++ SynCrossPlatformJSON.pas    2017-01-03 08:52:29.788560100 +0700
@@ -1655,6 +1655,7 @@
   Init;
   VKind := jvArray;
   Values := aValues;
+  VCount := Length(aValues);
end;

procedure TJSONVariantData.AddNameValue(const aName: string;

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: [patch] SynCrossPlatformJSON InitFrom VariantDynArray

Please check http://synopse.info/fossil/info/15f888dbfa

Thanks for the feedback!