Problema generando Json

[NeWsP]

Buenos dias, estoy intentando generar un JSON con el siguiente formato:

{
"result": [
{
"Lineas": [
{
"Id": "8",
"codigo": "T00001",
"fecha": "26/02/2018 12:53:28",
"operacion": "Añadir",
"cantidad": "200",
"total": "400"
},
{
"Id": "8",
"codigo": "T00001",
"fecha": "26/02/2018 12:53:28",
"operacion": "Añadir",
"cantidad": "200",
"total": "400"
},
{
"Id": "8",
"codigo": "T00001",
"fecha": "26/02/2018 12:53:28",
"operacion": "Añadir",
"cantidad": "200",
"total": "400"
}
]
}
]
}

El problema que tengo es que si miro el Json como se genera con el PostMan en RAW se me forma este json:


{
"result": [{
"Lineas": [{
"Id": "2",
"codigo": "T00001",
"fecha": "15\/02\/2018 12:50:47",
"operacion": "A\u00F1adir",
"cantidad": "0",
"total": "0",
"Id": "7",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:04",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "200",
"Id": "8",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:28",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "400"
}, {
"Id": "2",
"codigo": "T00001",
"fecha": "15\/02\/2018 12:50:47",
"operacion": "A\u00F1adir",
"cantidad": "0",
"total": "0",
"Id": "7",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:04",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "200",
"Id": "8",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:28",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "400"
}, {
"Id": "2",
"codigo": "T00001",
"fecha": "15\/02\/2018 12:50:47",
"operacion": "A\u00F1adir",
"cantidad": "0",
"total": "0",
"Id": "7",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:04",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "200",
"Id": "8",
"codigo": "T00001",
"fecha": "26\/02\/2018 12:53:28",
"operacion": "A\u00F1adir",
"cantidad": "200",
"total": "400"
}]
}]
}


En la base de datos tengo 3 registros para ese codigo, pero en el Json final, me repite 3 veces el mismo registro, y en el Json en RAW me repite 3 veces los 3 registros, pero me mete los 3 registros cada uno en un array distinto.

Ahora pongo el codigo:
With FormUnit1.Form1.QueHistoria do
begin
sql.Clear;
sql.Add('SELECT * FROM historial WHERE codigo=:referencia');
parambyname('referencia').Value:=referencia;
execsql;
end;

Array_lineas:=TJsonArray.Create;
Result:=TJsonObject.Create;
obj_linea:=TJsonObject.Create;

FormUnit1.Form1.QueHistoria.first;
Result.AddPair(TJsonPair.Create('Lineas',Array_lineas));

while (not FormUnit1.Form1.QueHistoria.EOF) do
begin

for I := 0 to FormUnit1.Form1.QueHistoria.FieldDefs.Count-1 do
begin
CollumnName := FormUnit1.Form1.QueHistoria.FieldDefs[I].Name;
Obj_Linea.AddPair(CollumnName,FormUnit1.form1.QueHistoria.Fields[i].Value);
arr:=i;
end;
array_lineas.Add(obj_linea);
FormUnit1.Form1.QueHistoria.next;

end;

- Si creo distintos TJsonObject y los meto en el array_lineas funciona correctamente, pero no creo que sea la solucion, y tampoco consigo crearlos en ejecución.
- Si meto los datos en el TJsonObject, los añado al array, destruyo el TJsonObject, y lo vuelvo a crear, el resultado me sale con las llaves que necesito pero sin datos.

He estado mirando varios post del foro, pero no he encontrado ninguna solución, parte del codigo de un ejemplo sacado de una función en la que se habló en este post: https://www.clubdelphi.com/foros/showthread.php?t=88282

Si tuviera que cambiar el aspecto del json o algo, supongo que podria adaptarme, pero si puede ser ese formato mejor.

Muchas gracias, y espero que me podais echar un cable.
Saludos

[NeWsP]

Ya he encontrado la solución, era una tonteria, dejo aqui la solución por si le sirve a alguien:

Solo tenia que crear el objecto dentro del bucle.

El codigo quedaria asi :

begin
arr:=0;
With FormUnit1.Form1.QueHistoria do
begin
sql.Clear;
sql.Add('SELECT * FROM historial WHERE codigo=:referencia');
parambyname('referencia').Value:=referencia;
execsql;
end;

Array_lineas:=TJsonArray.Create;
Result:=TJsonObject.Create;


FormUnit1.Form1.QueHistoria.first;
Result.AddPair(TJsonPair.Create('Lineas',Array_lineas));

while (not FormUnit1.Form1.QueHistoria.EOF) do
begin
obj_linea:=TJsonObject.Create;
for I := 0 to FormUnit1.Form1.QueHistoria.FieldDefs.Count-1 do
begin
CollumnName := FormUnit1.Form1.QueHistoria.FieldDefs[I].Name;
Obj_Linea.AddPair(CollumnName,FormUnit1.form1.QueHistoria.Fields[i].Value);
arr:=i;
end;
array_lineas.Add(obj_linea);
FormUnit1.Form1.QueHistoria.next;

end;

end;

Gracias

[ElKurgan]

Muchas gracias por compartir la solución. Me alegro que hayas podido seguir adelante con el proyecto

Saludos