将JSON反序列化为类型化对象数组(Delphi 11)

type
  TPerson = class
  private
    FName: string;
    FAge: Integer;
  public
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

uses
  System.JSON, System.JSON.Types;

function DeserializeJSONToArray(jsonStr: string): TArray<TPerson>;
var
  jsonArray: TJSONArray;
  jsonValue: TJSONValue;
  jsonPair: TJSONPair;
  person: TPerson;
  i: Integer;
begin
  jsonArray := TJSONObject.ParseJSONValue(jsonStr) as TJSONArray;
  SetLength(Result, jsonArray.Count);
  
  for i := 0 to jsonArray.Count - 1 do
  begin
    jsonValue := jsonArray.Items[i];
    if jsonValue is TJSONObject then
    begin
      person := TPerson.Create;
      for jsonPair in (jsonValue as TJSONObject) do
      begin
        if jsonPair.JsonString.Value = 'name' then
          person.Name := jsonPair.JsonValue.Value
        else if jsonPair.JsonString.Value = 'age' then
          person.Age := jsonPair.JsonValue.Value.ToInteger;
      end;
      Result[i] := person;
    end;
  end;
end;

var
  jsonStr: string;
  personArray: TArray<TPerson>;
  person: TPerson;
begin
  // 假设jsonStr包含了一段JSON数组字符串

  personArray := DeserializeJSONToArray(jsonStr);
  
  for person in personArray do
  begin
    // 处理每个人的数据
    ShowMessage(Format('Name: %s, Age: %d', [person.Name, person.Age]));
  end;
end;