Einzelnen Beitrag anzeigen

Whookie

Registriert seit: 3. Mai 2006
Ort: Graz
445 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: DB Abfrage als JSON ausgeben

  Alt 1. Mär 2024, 14:55
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).
Whookie

Software isn't released ... it is allowed to escape!
  Mit Zitat antworten Zitat