Firedac als JSON ohne Feldbezeichner exportieren

[Kostas]

Hallo Uwe,

Firedac erzeugt so ein Json:

Code:

{"RecordSet" : [
   {
      "PERSONID" : 295,
      "NAMEN" : "Brandl",
      "TITEL" : null,
      "VORNAME" : "Carmen",
      "GEBURTSDATUM" : "29.08.1994",
      "PERSONALNR" : "10115854",
      "EINTRITTJAHR" : 0,
      "FACHNR" : 101006,
      "FACH" : "SV45HD",
   },
...

Wenn ich die Query selbst durchlaufe kann ich ein Jason erzeugen ohne Feldbezeichner PERSONID, NAMEN, TITEL...

Code:

[
       [1,  << die 1++ wird als Zähler automatisch beim hinzufügen eines Elements hinzugefügt.
        295,
        "Brandl",
        "",
        "Carmen",
        "29.08.1994",
        "10115854",
        0,
        101006,
        "SV45HD",
        ],
...

Delphi-Quellcode:

    LPersonen := TJSONArray.Create;

    while not qrPersonen.eof do
    begin
      LPersonenRec := TJSONArray.Create;
      LPersonenRec.add(qrPersonen.FieldByName('PERSONID').AsLargeInt);
      LPersonenRec.add(qrPersonen.FieldByName('NAMEN').AsString);
      LPersonenRec.add(qrPersonen.FieldByName('TITEL').AsString);
      LPersonenRec.add(qrPersonen.FieldByName('VORNAME').AsString);
      LPersonenRec.add(qrPersonen.FieldByName('GEBURTSDATUM').AsString);
      LPersonenRec.add(qrPersonen.FieldByName('PERSONALNR').AsString);
      LPersonenRec.add(qrPersonen.FieldByName('EINTRITTJAHR').AsInteger);
      LPersonenRec.add(qrPersonen.FieldByName('FACHNR').AsLargeInt);
      LPersonenRec.add(qrPersonen.FieldByName('FACH').AsString);

      LPersonen.Add(LPersonenRec);

      qrPersonen.next;
    end;