implementation
 
uses
    Serialize.Json4D;
 
procedure JsonArray4D(LArrayJson : TJsonArray);
var
 ListDto : TObjectList<TArrayDTO>;
begin
    ListDTO := 
      TJson4DSerialize<TArrayDTO>.New(false)
        .JsonArrayToObject(LArrayJson)
          .ListObjects;
    ListDTO.free;
end;
 
procedure StringJsonArray4D(LArrayJson : String);
var
 ListDto : TObjectList<TArrayDTO>;
begin
    ListDTO := 
      TJson4DSerialize<TArrayDTO>.New(false)
        .JsonArrayToObject(LArrayJson)
          .ListObjects;
    ListDTO.free;
end;

implementation
 
uses
    Contracts.Json4D,
    Serialize.Json4D;
 
procedure JsonArray4D(LArrayJson : TJsonArray);
var
 LSerialize : ISerializeJSON4D<TArrayDTO>;
 LDTO : TArrayDTO;
begin
 LSerialize := TJson4DSerialize<TArrayDTO>.New;
 LSerialize.JsonArrayToObject(LArrayJson);
 for LDTO in LSerialize.This.ListObjects do
 begin
   {Aqui voce obtem as informações do objeto}
 end;
end;
 
procedure StringJsonArray4D(LArrayJson : String);
var
 ListDTO : TObjectList<TArrayDTO>;
begin
    ListDTO := 
      TJson4DSerialize<TArrayDTO>.New(false)
        .JsonArrayToObject(LArrayJson)
          .ListObjects;
    ListDTO.free;
end;