Delphi DLL

Create JSON Array of Strings

See more JSON Examples

Demonstrates how to create a JSON array of strings. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
jarr: HCkJsonArray;

begin
// The goal of this example is to produce this:

// [
//   "tag1",
//   "tag2",
//   "tag3"
// ]

jarr := CkJsonArray_Create();
CkJsonArray_AddStringAt(jarr,-1,'tag1');
CkJsonArray_AddStringAt(jarr,-1,'tag2');
CkJsonArray_AddStringAt(jarr,-1,'tag3');

CkJsonArray_putEmitCompact(jarr,False);
Memo1.Lines.Add(CkJsonArray__emit(jarr));

CkJsonArray_Dispose(jarr);

end;