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;