gibt es was wie RecordToJsonString

[charly52]

Hi all,

gibt es sowas wie

lValue:= TJSON.ObjectToJsonString(BDatClass, [joIndentCaseCamel, joDateIsUTC]);

beim Delphi auch für Records?
Ich würde gerne statt dem Objekt BDatClass eine Recordvariable verwenden können.
Oder gibt es sowas wie Uwe Raabe seine Helper die das können?

Charly

[Uwe Raabe]

Sowas wie einen record in Delphi gibt es in der JSON-Notation nicht. Ich vermute mal, du möchtest einen record wie eine class umgesetzt haben, aber das wird bislang von den Bordmitteln nicht unterstützt.

[Union]

Du könntest das in den meisten Fällen per RTTI behandeln. Ansonsten bestünde auch die Möglichkeit, den Record mit einer function AsJSON : string zu erweitern und dort das JSON zu erzeugen. Die kann gerne auch in einem Record helper sitzen.

[charly52]

Zitat von Union:

Ansonsten bestünde auch die Möglichkeit, den Record mit einer function AsJSON : string zu erweitern und dort das JSON zu erzeugen. Die kann gerne auch in einem Record helper sitzen.

Wie könnte das aussehen? Ich habe an der Front noch keinen blassen Schimmer.

Delphi-Quellcode:

type

TRec3 = record
          xyz: Integer;
          abc: boolean;
end;

TArr1  = Array[1..5] of TRec3;


TRecord2 = record
              int1: Integer;
              str3: String;
end;

TRecord = record
            str1: String;
            rec2: TRecord2;
            arr1: TArr1;
end;

var
  myRecVar : TRecord;
  myJSONString: String;

Könnte ich mit was von dir beschriebenen dann sowas nutzen?

myJSONString:= RecordToJsonString(myRecVar, ....); und was muss in TRecord alless rein?
Gibt es dazu ein schönes Beispiel?

Danke

[Union]

Die Erweiterung von Records durch Methoden z.b. In denen baust Du dann dein JSON zusammen. Ist natürlich nur eine Einmal-Lösung, da Records keine Vererbung unterstützen.

Delphi-Quellcode:

TRec3 = record
    xyz: Integer;
    abc: boolean;
    function ToJSON : string;
  end;

  TArr1 = Array [1 .. 5] of TRec3;
  TRecord2 = record
     int1: Integer;
     str3: String;
     function ToJSON : string;
  end;

  TRecord = record
    str1: String;
    rec2: TRecord2;
    arr1: TArr1;
    function ToJSON : string;
  end;

[charly52]

Danke,


Charly