verstehe neue Vorgehensweise nicht wirklich :-(

[exasoft]

so hatte ich es auch immer gemacht - dachte nur das ginge auch irgendwie mit dieser "Punktnotationsarie".

Danke..

Delphi-Quellcode:

      // json-array für die rückgabe der daten erstellen..
      a := TJSONArray.Create;
      try
        // DARF EIGTL NUR EINEN DS FINDEN - source aber für später so belassen
        // auf ersten satz pos..
        dm.qryWoIsser.First;
        // saetze scannen..
        while (NOT dm.qryWoIsser.Eof) do begin
          // fuer jeden ds ein json-objekt erstellen..
          o := TJSONObject.Create;
          // fuer jedes gewuenschte qry-feld einen eintrag im json-objekt erstellen..
          o.AddPair('id',dm.qryWoIsser.FieldByName('id').AsString);
          o.AddPair('location',dm.qryWoIsser.FieldByName('location').AsString);

          // objekt dem json-array hinzufügen..
          a.AddElement(o);
          // nächster ds..
          dm.qryWoIsser.Next;