gibt es was wie RecordToJsonString

[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