TJSONObject *lpJson = new TJSONObject;
lpJson->AddPair(L"name" , "Victor Chen");
lpJson->AddPair(L"homepage", L"");
Memo2->Text = lpJson->ToJSON();
delete lpJson;

执行的结果：

{"name":"Victor Chen","homepage":"http:\/\/www.cppfans.com\/"}

例2：

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  TJSONObject *lpJson = new TJSONObject;
  lpJson->AddPair(L"name", "Victor Chen");
  lpJson->AddPair(L"homepage", L"");

  TJSONArray *lpStrings= new TJSONArray;
  lpStrings->Add(UnicodeString(L"Victor" ));
  lpStrings->Add(UnicodeString(L"Michael"));
  lpStrings->Add(UnicodeString(L"Jack" ));
  lpJson->AddPair(L"Strings", lpStrings);

  TJSONArray *lpNumbers = new TJSONArray;
  lpNumbers->Add(123);
  lpNumbers->Add(456);
  lpNumbers->Add(7890);
  lpJson->AddPair(L"Numbers", lpNumbers);

  Memo2->Text = lpJson->ToJSON();
  delete lpJson;
}

执行的结果：

{"name":"Victor Chen","homepage":"","Strings":["Victor","Michael","Jack"],"Numbers":[123,456,7890]}