Delphi DLL

JSON Add Large Integer or Double

See more JSON Examples

Demonstrates how to add a large number (larger than what can be held in an integer), or a double/float value to a JSON document. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
index: Integer;

begin
json := CkJsonObject_Create();

// To add a large integer, use AddNumberAt.

// (an index of -1 indicates append).
index := -1;
CkJsonObject_AddNumberAt(json,index,'bignum','8239845689346587465826345892644873453634563456');

// Do the same for a double..
CkJsonObject_AddNumberAt(json,index,'double','-153634.295');

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

// Output:

// 	{
// 	  "bignum": 8239845689346587465826345892644873453634563456,
// 	  "double": -153634.295
// 	}

CkJsonObject_Dispose(json);

end;