TJson.ObjectToJsonString - Reihenfolge der Felder ändern

[lxo]

Zitat von himitsu:

Versuch mal

Delphi-Quellcode:

type
  TAdditionTest = class(TTest)
  private
    FAdditionValue: String;
  public
    property ID;
    property Value;
    property AdditionValue: String read FAdditionValue write FAdditionValue;
  end;

Eigentlich nutzt man das, um die Sichtbarkeit der Property zu ändern (Protected>Public>Published), aber vielleicht hilft's hier ja auch.

TRttiType.GetFields geht halt die Vererbung durch, also erst alles "neue" in TAdditionTest und dann wird unten das von dem Vorfahren (TTest) an die Liste angehängt.

Hab ich auch schon ausprobiert.
Hat leider keine Einfluss.

Wie ich das verstanden habe werden auch gar nicht die Properties verwendet sondern die F-Variablen.
Also es macht auch kein Unterschied in der Reihenfolge wenn ich die Properties anders positionieren würde.
Wenn ich die F-Variablen anders positioniere dann ändert sich auch die Reihenfolge im JSON-String.