JSON 之 SuperObject(9): TSuperType

JSON 之 SuperObject(9): TSuperType

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

uses SuperObject;

//类型

procedure TForm1.Button1Click(Sender: TObject);

  function GetJsonType(I: ISuperObject): string;

  begin

    case I.DataType of

      stNull:    Result := 'stNull';

      stBoolean: Result := 'stBoolean';

      stDouble:  Result := 'stDouble';

      stInt:     Result := 'stInt';

      stObject:  Result := 'stObject';

      stArray:   Result := 'stArray';

      stString:  Result := 'stString';

      stMethod:  Result := 'stMethod';

    end;

  end;

var

  jo: ISuperObject;

begin

  jo := SO('{A:1, B:2}');

  ShowMessage(GetJsonType(jo)); {stObject}

  jo := SO;

  ShowMessage(GetJsonType(jo)); {stObject}

  jo := SO('abc');

  ShowMessage(GetJsonType(jo)); {stString}

  jo := SO(123);

  ShowMessage(GetJsonType(jo)); {stInt}

  jo := SO('123');

  ShowMessage(GetJsonType(jo)); {stInt}

  jo := SO(3.14);

  ShowMessage(GetJsonType(jo)); {stDouble}

  jo := SO('3.14');

  ShowMessage(GetJsonType(jo)); {stDouble}

  jo := SO(False);

  ShowMessage(GetJsonType(jo)); {stBoolean}

  jo := SO('[1,2,3,a,b,c]');

  ShowMessage(GetJsonType(jo)); {stArray}

  jo := TSuperObject.Create(stMethod);

  ShowMessage(GetJsonType(jo)); {stMethod}

  jo := SO('null');

  ShowMessage(GetJsonType(jo)); {stNull}

end;

//判断

procedure TForm1.Button2Click(Sender: TObject);

var

  jo: ISuperObject;

begin

  jo := SO('[]');

  if jo.DataType = stArray then ShowMessage('stArray');

  if ObjectIsType(jo, stArray) then ShowMessage('stArray');

end;

end.