gibt es was wie RecordToJsonString

[charly52]

Hi all,

gibt es sowas wie

Delphi-Quellcode:

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

Delphi-Quellcode:

record

in Delphi gibt es in der JSON-Notation nicht. Ich vermute mal, du möchtest einen

Delphi-Quellcode:

record

wie eine

Delphi-Quellcode:

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

Delphi-Quellcode:

function AsJSON : string

zu erweitern und dort das JSON zu erzeugen. Die kann gerne auch in einem Record helper sitzen.

[charly52]

Zitat:

Zitat von Union (Beitrag 1510108)

Ansonsten bestünde auch die Möglichkeit, den Record mit einer

Delphi-Quellcode:

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?

Delphi-Quellcode:

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