(Delphi DLL) JSON Append String Array

Demonstrates how to append an array of strings from a string table object.

Note: This example uses the AppendStringTable method, which was introduced in Chilkat v9.5.0.67

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
st: HCkStringTable;

begin
json := CkJsonObject_Create();
CkJsonObject_putEmitCompact(json,False);

CkJsonObject_AppendString(json,'abc','123');

st := CkStringTable_Create();
CkStringTable_Append(st,'a');
CkStringTable_Append(st,'b');
CkStringTable_Append(st,'c');
CkStringTable_Append(st,'d');

CkJsonObject_AppendStringArray(json,'strArray',st);

Memo1.Lines.Add(CkJsonObject__emit(json));

// Output:

// 	{
// 	  "abc": "123",
// 	  "strArray": [
// 	    "a",
// 	    "b",
// 	    "c",
// 	    "d"
// 	  ]
// 	}

CkJsonObject_Dispose(json);
CkStringTable_Dispose(st);

end;