ich möchte ein JSON Array erstellen, das aus mehreren JSONObjekten besteht und ungefähr so aussehen soll:
Code: Alles auswählen
[
{
"name": "PAULINO",
"surname": "CATALAN"
},
{
"name": "JOSE IGNACIO",
"surname": "RODRIGUEZ"
},
{
"name": "MUSTAPHA",
"surname": "DE LA FUENTE"
}
]
Code: Alles auswählen
procedure fakeadressenEndpoint(req: TRequest; res: TResponse);
var
jObject : TJSONObject;
jArray : TJSONArray;
i : integer;
begin
jArray := TJSONArray.Create;
try
for i := 1 to 10 do
begin
jObject := TJSONObject.Create;
jObject.Strings['fakeadressen'] := format('Version %d',[i]);
jObject.Strings['Name'] := format('Name %d',[i]);
jArray.Add(jObject);
jObject.Free;
end;
jsonResponse(res, jArray.AsJSON); // Ausgaberoutine
finally
jArray.Free;
end;
end;
Error: Adding an object to an array twice is not allowed
Kann mir jemand sagen, was an meinem Code "falsch" ist? Meine FOR-Schleife soll zehnmal durchlaufen werden, dabei erstelle ich jeweils ein TJSONObject, weise dem zwei Strings zu, und hänge dann das JSON Object in das JSONArray. Warum klappt das nicht?
Grüße aus Nürnberg,
Fritz