JSON SuperObject (13) SO and SA Functions in Delphi

JSON SuperObject (11) TSuperTableString, TSuperAvlEntry in Delphi

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 =class (TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     procedure Button1Click (Sender: TObject);     procedure Button2Click (Sender: TObject);     procedure Button3Click (Sender: TObject);   end ; var   Form1: TForm1; implementation {$ R * .dfm} uses SuperObject; // Merge merge procedure TForm1.Button1Click (Sender: TObject);...

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; where   Form1: TForm1; implementation {$R *.dfm} uses SuperObject; //Types of procedure TForm1.Button1Click(Sender: TObject);   function GetJsonType(I: ISuperObject): string;   begin     case I.DataTyp...

I found that SuperObject support for Chinese (or Unicode) in some places is not expected, and now a special post is proposed for the master to identify. The following examples will have garbled characters, although there may be workarounds, but if it is not garbled, it will be too All right! unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 =class (TForm)     Memo1: TMemo;     Button1: TButton;     Button2: TButton;     Butto...

uses SuperObject; procedure TForm1.Button1Click (Sender: TObject); var   jo1, jo2, jo3: ISuperObject; begin   jo1: = SO ('{"Name": "张三", "Age": "李四"}');   ShowMessage (jo1.AsJSon (False, False));   jo2: = SO ('(Name: Zhang San, Age: 李四)');   ShowMessage (jo2.AsJSon (False, False));   jo3: = SO ('(Name 1: Zhang San, Age 2: Li Si)');   ShowMessage (jo3.AsJSon (False, False)); {But if double quotes are not used, spaces before and after: will also be recognized; double quotes should still be used if possible} ...

procedure Method (const This, Params: ISuperObject;var Result: ISuperObject); // Also, this is an enumeration of its data type: TSuperType = (stNull, stBoolean, stDouble, stInt, stObject, stArray, stString, stMethod); Test code: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Keyboard; type   TForm1 =class (TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click (Sender: TObject);     procedure Button2Click ...

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; // Format procedure TForm1.Button1Click (Sender: TObject); var   jo: ISuperObject; begin   jo: = SO ('{"Name": "张三", "Age": 88...

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 =class (TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     procedure Button1Click (Sender: TObject);     procedure Button2Click (Sender: TObject);     procedure Button3Click (Sender: TObject);   end ; var   Form1: TForm1; implementation {$ R * .dfm} uses SuperObject; //Add to procedure TForm1.Button1Click (Sender: TObject); var ...

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 =class (TForm)     Memo1: TMemo;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     Button6: TButton;     Button7: ​​TButton;     Button8: TButton;     procedure Button1Click (Sender: TObject);     procedure Button2Click (Sender: TObject);     procedure Button3Click (Sender: TObject);    ...