Leitura.dpr

var
  ArquivoResultado, LinhaResultado, CampoResultado: JObject;
  linha, coluna, quantidadeLinhas, quantidadeColunas : integer;
  path, nome, valor : string;
begin
    ArquivoResultado := LerArquivoRetorno(ParamStr(1));
    quantidadeLinhas := GetQuantidadeDeLinhas(ArquivoResultado);

    // LOG
    Writeln( IntToStr(quantidadeLinhas) + ' linhas' );

    // Pegar a primeira linha
    LinhaResultado := GetLinhaResultado(ArquivoResultado, 0);
    CampoResultado := GetCampo(LinhaResultado, 'dataDaGravacaoDoArquivo');
    Writeln( 'Data Gravacao: ' + CampoResultadoToString( CampoResultado ) );

    for linha := 1 to quantidadeLinhas-2 do
    begin
        LinhaResultado := GetLinhaResultado(ArquivoResultado, linha);
        quantidadeColunas := GetQuantidadeDeColunas( LinhaResultado );

        for coluna := 0 to quantidadeColunas-1 do
        begin
            CampoResultado := GetCampo(LinhaResultado, coluna);
            nome := GetNomeCampo( CampoResultado );
            valor := CampoResultadoToString(CampoResultado);

            Writeln('Campo: ', nome, ' = ', valor);
        end;


    end;
end.