DB Abfrage als JSON ausgeben

[Whookie]

Danke für die Hinweise! Beim Überlegen bin ich dann auf folgende Möglichkeit gekommen:

Delphi-Quellcode:

type
  TJSONStringedArray = class(TJSONString)
  public
    procedure ToChars(Builder: TStringBuilder); override;
  end;

implementation

{ TJSONStringArray }

procedure TJSONStringedArray.ToChars(Builder: TStringBuilder);
begin
//  inherited;
  if Not IsNULL then
  begin
    Builder.Append(Value);
  end;
end;

Hinzufügen, kann ich mein Array dann wie folgt:

Delphi-Quellcode:

  ...
    LItem.AddPair(
      AQuery.fJSONDefs[i].Name,
      TJSONStringedArray.Create(fQuery.Fields[i].AsString)
    )

Damit stimmt dann auch die Ausgabe im JSON.

Anm.: Man könnte noch ToBytes() überschreiben um die Ausgabe in einen Stream zu ermöglichen (verwende ich aber nicht).