使用 ISuperObject 库json的 Delphi7 应用程序示例

下面是一个使用 ISuperObject 库json的 Delphi7 应用程序示例，包含创建、新增、修改、删除、排序等操作：

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SuperObject;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
    FDataObj: ISuperObject;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 创建一个空的 JSON 对象
  FDataObj := SO();
  Memo1.Lines.Add('Empty object created.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 向 JSON 对象中添加属性和值
  FDataObj.S['name'] := 'John Smith';
  FDataObj.I['age'] := 35;
  FDataObj.S['city'] := 'New York';

  Memo1.Lines.Add('Properties added to the object.');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  // 修改 JSON 对象中的属性值
  FDataObj.S['name'] := 'Jane Doe';
  FDataObj.I['age'] := 40;
  FDataObj.S['city'] := 'Los Angeles';

  Memo1.Lines.Add('Properties updated.');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  // 删除 JSON 对象中的属性
  FDataObj.Delete('city');

  Memo1.Lines.Add('Property "city" deleted.');
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  I, Len: Integer;
  ArrayObj: ISuperObject;
begin
  // 向 JSON 对象中添加一个数组，并对其进行排序
  ArrayObj := SA([]);
  ArrayObj.AsArray.Add('D');
  ArrayObj.AsArray.Add('A');
  ArrayObj.AsArray.Add('C');
  ArrayObj.AsArray.Add('B');

  ArrayObj.AsArray.Sort(TSuperComparer.Create);

  FDataObj.O['array'] := ArrayObj;

  Memo1.Lines.Add('Array added and sorted:');
  Len := ArrayObj.AsArray.Length;
  for I := 0 to Len - 1 do
    Memo1.Lines.Add(ArrayObj.AsArray[I].AsString);
end;

end.

该应用程序包含一个窗体和五个按钮。当用户单击不同的按钮时，它会执行不同的操作：

• Button1：创建一个空的 JSON 对象。
• Button2：向 JSON 对象中添加属性和值。
• Button3：修改 JSON 对象中的属性值。
• Button4：删除 JSON 对象中的属性。
• Button5：向 JSON 对象中添加一个数组，并对其进行排序。

ISuperObject 库提供了一系列用于创建、读取、更新和删除 JSON 数据的函数和方法。在实际应用中，您可以根据自己的需求使用这些函数和方法来操作 JSON 数据。请注意，在实际应用中，您可能需要更多的错误处理和数据验证来确保应用程序的正确性和安全性。