TJSONArray

type TJSONArray = class(TJSONValue)

protected

  procedure BuildJSONString(); override;

  function GetValueType; override;

  function GetValueArray; override;

  function GetValueIsArray; override;

public

  constructor Create;

  constructor CreateEx();

  destructor Destroy; override;

  function Clone; override;

  procedure Clear;

  property Count: Integer; [r]

  property Item []: TJSONValue; default; [r]

  function ItemIsNull();

  property ItemAsStr []: UnicodeString; [rw]

  property ItemAsStrUTF8 []: RawByteString; [rw]

  property ItemAsInt []: Int64; [rw]

  property ItemAsFloat []: JSONFloat; [rw]

  property ItemAsBoolean []: Boolean; [rw]

  property ItemAsArray []: TJSONArray; [r]

  property ItemAsObject []: TJSONObject; [r]

  property ItemAsVariant []: Variant; [rw]

  procedure Append();

  procedure AppendStr();

  procedure AppendStrUTF8();

  procedure AppendInt();

  procedure AppendFloat();

  procedure AppendBoolean();

  procedure AppendNull;

  procedure AppendVariant();

  function Compare(); override;

  procedure Validate(); override;

  function GetAsStrArray;

  function GetAsStrArrayUTF8;

  function GetAsIntArray;

  function GetAsFloatArray;

end;

TJSONArray

TJSONValue

TObject