json4delphi
json4delphi copied to clipboard
rilyu
JSON for Delphi, support for older versions of Delphi (6 or above)
Json := TJson.Create(); Json['field6'].AsString := 'hello world'; writeln(Json.Stringify()); This simple code should produce a string {"field6" : "hello world"} ?? If so it is not what is happening using Delphi...
202008 - Add - MaiconSoft - Constructor "New" for fast initialize Objects 202008 - Add - MaiconSoft - JsonArray.Put support multiples values at same time 202008 - Fix - MaiconSoft...
Hi, JsonsUtils_GLB_DECIMALSEPARATOR would be replaced by GLB_JSON_STD_DECIMALSEPARATOR and not the opposite: ``` function FixedTryStrToFloat(const S: string; out Value: Extended): Boolean; var FixedS: string; begin if JsonsUtils_GLB_DECIMALSEPARATOR = GLB_JSON_STD_DECIMALSEPARATOR then begin...
fazendo uso em lazarus ao usar o _objecttojson retorna apenas '{}' como fazer para funcionar em lazarus ?
I made the library scriptable to maXbox4 engine, runs fine now: http://www.softwareschule.ch/examples/covid2.txt
Hello, This code ``` unit Main; interface uses Winapi.Windows, REST.JSON, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonsUtilsEx; type TForm1 = class(TForm) Memo1: TMemo; ObjectBtn: TButton; procedure ObjectBtnClick(Sender:...
Hello, Would TStringStream be used to enhance writing performance instead of concatenating Json elements? ``` function TJsonArray.Stringify: String; var I: Integer; Item: TJsonValue; begin Result := '['; for I :=...