Delphi ActiveX

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 ActiveX

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

...

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

begin
json := TChilkatJsonObject.Create(Self);

// To add a large integer, use AddNumberAt.

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

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

json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

// Output:

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