How to test if TJSONVALUE is an array

[RussellW 3]

I don't normally use the in build Delphi JSON, so how would you best test to see if TJSONVALUE  is a TJSONARRAY or TJSONOBJECT?

[Guest]

procedure foo(const value: TJSONValue )
begin
  if value is TJSONArray then
    begin
      // Yes, it is an array
    end
  else if value is TJSONObject then
    begin
      // Yes, it is an object
    end
  else
    begin
      // not array, not object
    end;
end;

 

Edited April 2, 2019 by Guest

[RussellW 3]

thanks. Sometimes you are so far into the woods....