Erzeugen und Freigeben von TJSONTextWriter wirklich so umständlich?

[Schokohase]

So würde man es ja normalerweise machen:

Delphi-Quellcode:

function TmyClass.GetInfoAsJSON: string;
var
  jWriter: TJsonTextWriter;
  textWriter: TTextWriter;
begin
  textWriter := TStringWriter.Create;
  try
    jWriter:=TJsonTextWriter.Create(textWriter);
    try
      jWriter.WriteStartObject;
      jWriter.WritePropertyName('values');
      jWriter.WriteValue('wuppdi');
      jWriter.WriteEndObject;
      Result:=jWriter.Writer.ToString;
    finally
      jWriter.Free;
    end;
  finally
    textWriter.Free;
  end;
end;

oder alternativ auch so

Delphi-Quellcode:

function TmyClass.GetInfoAsJSON: string;
var
  jWriter: TJsonTextWriter;
  textWriter: TTextWriter;
begin
  jWriter := nil;
  textWriter := TStringWriter.Create;
  try
    jWriter:=TJsonTextWriter.Create(textWriter);
    jWriter.WriteStartObject;
    jWriter.WritePropertyName('values');
    jWriter.WriteValue('wuppdi');
    jWriter.WriteEndObject;
    Result:=jWriter.Writer.ToString;
  finally
    jWriter.Free;
    textWriter.Free;
  end;
end;

[Bbommel]

Danke für die Rückmeldung, Schokohase. Das war das, was ich in meinem Beitrag mit "man kann sich den TextWriter auch beim Create merken" meinte - ist sicherlich die erstmal schönere Variante. Ich hatte halt jetzt schon soweit gebastelt, um dieses ganze Erzeugen und Freigaben nachher in Hilfsfunktionen (oder eine abgeleitete Klasse, mal sehen) auslagern zu können.

Aber meine eigentliche Frage hast du ja dann bestätigt: ja, es ist so, dass man immer beide Objekte braucht und tunlichst in der richtigen Reihenfolge freigeben muss.

[Schokohase]

Ich würde den Code sogar noch etwas weiter aufdröseln zu

Delphi-Quellcode:

function TmyClass.GetInfoAsJSON: string;
var
  jWriter: TJsonTextWriter;
  textWriter: TTextWriter;
begin
  textWriter := TStringWriter.Create;
  try
    // start write json
    jWriter:=TJsonTextWriter.Create(textWriter);
    try
      jWriter.WriteStartObject;
      jWriter.WritePropertyName('values');
      jWriter.WriteValue('wuppdi');
      jWriter.WriteEndObject;
    finally
      jWriter.Free;
    end;
    // end write json
    Result := textWriter.ToString;
  finally
    textWriter.Free;
  end;
end;

und nun sieht man, dass man diesen JSON-Write Kram auch in eine eigene Methode auslagern kann.

Delphi-Quellcode:

procedure TmyClass.WriteJSONInfo(const AWriter: TTextWriter);
begin
  jWriter:=TJsonTextWriter.Create(AWriter);
  try
    jWriter.WriteStartObject;
    jWriter.WritePropertyName('values');
    jWriter.WriteValue('wuppdi');
    jWriter.WriteEndObject;
  finally
    jWriter.Free;
  end;
end;

function TmyClass.GetInfoAsJSON: string;
var
  textWriter: TTextWriter;
begin
  textWriter := TStringWriter.Create;
  try
    WriteJSONInfo(textWriter);
    Result := textWriter.ToString;
  finally
    textWriter.Free;
  end;
end;

und schon sieht das wesentlich entzerrter aus und man kann jetzt jeden beliebigen TextWriter von aussen übergeben (zum Testen, zum ...)