tengo un JSON con la siguiente estructura:
{"Numbers":[["1","a"],["2","b"]]}
La idea es introducirle un numero, y un string, en ese mismo formato, hasta ahora, hago eso de la siguiente manera:
Var
MainJSON : TJSONObject;
JSONArray, JSONNumeros, JSONNumeros2 : TJSONArray;
Filename : String;
begin
// ----------------- Escribir el JSON ------
try
MainJson := TJSONObject.Create;
try
JSONArray := TJSONArray.Create;
JSONNumeros := TJSONArray.Create;
MainJSON.AddPair(TJSONPair.Create('Numbers', JSONArray));
JSONNumeros.add('1');
JSONNumeros.add('a');
JSONArray.Add(JSONNumeros);
JSONNumeros2.add('2');
JSONNumeros2.add('b');
JSONArray.Add(JSONNumeros2);
Filename:= (ExtractFilePath(Application.ExeName)+'\Data.Json');
TFile.WriteAllText(Filename , MainJson.ToJSON, TEncoding.UTF8);
finally
MainJSON.Free;
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end;
Pero, necesito agregar mas datos a la cadena, y no quiero agregar otra variable al TJSONArray como por ejemplo "JSONNumeros3" como hago para agregar mas datos a la cadena en tiempo de ejecucion?, la idea es agregarlo desde la informacion obtenida desde una base de datos, algo como:
Var
MainJSON : TJSONObject;
JSONArray, JSONNumeros, JSONNumeros2 : TJSONArray;
Filename : String;
begin
// ----------------- Escribir el JSON------
try
MainJson := TJSONObject.Create;
try
JSONArray := TJSONArray.Create;
JSONNumeros := TJSONArray.Create;
MainJSON.AddPair(TJSONPair.Create('Numbers', JSONArray));
While not Query.eof do
Begin
JSONNumeros.add(Query.FieldByName('Numero').asstring);
JSONNumeros.add(Query.FieldByName('Texto').asstring);
JSONArray.Add(JSONNumeros);
Next;
end;
Filename:= (ExtractFilePath(Application.ExeName)+'\Data.Json');
TFile.WriteAllText(Filename , MainJson.ToJSON, TEncoding.UTF8);
finally
MainJSON.Free;
end;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end;
Alguna idea? Gracias de antemano.