(Resolvido) Alimentar Classe com TArray Delphi XE

[arceadriano]

Bom dia

Estou consumindo um servido de webservice que utiliza JSON.

Criei as seguintes classes.

  { Classes Contador }
  TContador = class
  private
    FNome: String;
    FCNPJ: String;
  published
    property nome: String read FNome write FNome;
    property CNPJ: String read FCNPJ write FCNPJ;
  end;

  TRetContadores = class(TRetornoWS)
  private
    FOK: Boolean;
    FMsg: String;
    FContadores: TArray<TContador>;
  published
    property OK: Boolean read FOK write FOK;
    property msg: String read FMsg write FMsg;
    property Contadores: TArray<TContador> read FContadores write FContadores;
  end;

Para receber o conteudo JSON do webservice uso da seguinte forma, e o array é alimentado corretamente:

oRetornoWS := TJson.JsonToObject<TRetContadores>(cRetorno);

for i:= low(oRetornoWS.Contadores) to high(oRetornoWS.Contadores) do
  mtbContadores.InsertRecord([oRetornoWS.Contadores[i].CNPJ, oRetornoWS.Contadores[i].nome]);

Meu problema é o seguinte, como faço para adicionar os itens ao array da classe, para que depois eu utilize o método TJson.ObjectToJson() e criar o JSON.

 

 

[Jhonas]

exemplo

http://www.devmedia.com.br/trabalhando-com-tipos-json-no-delphi-2010-parte-3/17140

veja outros links sobre isso:

https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=json+object+to+json+array+delphi

https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=how+to+convert+json+object+to+json+array

https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=json%20object%20to%20json%20array

abraço

[arceadriano]

Jhonas... obrigado pela atenção

Criar o arquivo JSON ok, isso eu faço com o metodo  TJson.ObjectToJson() 

A questão é que não estou conseguindo alimentar a classe que criei.

  TRetContadores = class(TRetornoWS)
  private
    FOK: Boolean;
    FMsg: String;
    FContadores: TArray<TContador>;
  published
    property OK: Boolean read FOK write FOK;
    property msg: String read FMsg write FMsg;
    property Contadores: TArray<TContador> read FContadores write FContadores;
  end;

A Classe acima possui um array (FContadores), como faço para incluir registros nela?

Após usar o  TJson.ObjectToJson()  o JSON resultante ficaria dessa forma, mas para tal preciso carregar o array:

{
	"OK": true,
	"msg": "Registros encontrados",
	"contadores": [{
		"firstName": "John",
		"lastName": "Doe"
	}, {
		"firstName": "Anna",
		"lastName": "Smith"
	}, {
		"firstName": "Peter",
		"lastName": "Jones"
	}]
}

 

[Jhonas]

o primeiro link que te passei é exatamente isso ... só que o resultado é colocado dentro de um memo

a logica que voce vai seguir é a mesma ... voce só vai precisar fazer as alterações necessarias para o seu uso

abraço

[arceadriano]

Resolvi da seguinte forma

  TRetObjetos = class(TRet)
  private
    FObjetos: TArray<TObjeto>;
  public
    property Objetos: TArray<TObjeto> read FObjetos write FObjetos;
  end;