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).