Array Properties

[Rabenrecht]

Puh, eigene Klassen drum herum bauen nur um ordentlich drauf zugreifen zu können, klingt jetzt auch nicht so attraktiv. Von daher...

Zitat von himitsu:

oder kein Property verwenden, sondern das Feld/Variable "FMeinArray" ins Public.

... werde ich einfach das^^ machen

Und hoffen, das der Json Serializer auch public Fields "mitnimmt".
Json Serialization ist der einzige Grund, warum ich hier überhaupt mit Arrays rumhühnere, anstatt einfach (Object)Listen zu nutzen.

[Uwe Raabe]

Zitat von Rabenrecht:

Json Serialization ist der einzige Grund, warum ich hier überhaupt mit Arrays rumhühnere, anstatt einfach (Object)Listen zu nutzen.

Siehe da: Serializing Generic Object Lists with TJson

[Rabenrecht]

Zitat von Blup:

Im Normalfall würde man kein Array sondern eher eine TObjektList verwenden:

Jo, ich weiß. Aber siehe meinen Kommentar bzgl. Json Serialisierung

Zitat von Uwe Raabe:

Siehe da: Serializing Generic Object Lists with TJson

Jo Uwe, deinen Beitrag hab ich schon seit gestern als Tab offen
Aber mir schien es einfacher, meine Datenstrukturen auf Arrays umzustellen als den Json Serializer händisch aufzubohren.
Dass ich jetzt auch mit den Arrays ein paar Probleme hatte, war etwas unerwartet

[himitsu]

@Blubb

Zitat:

    property Items: TAndereKlasseList read FItems; default; {default: statt MeineKlasse.Items[i] kann man direkt MeineKlasse[i] schreiben

Njain.

Da das hier nun ein "normales" Property ist, hat Default wieder die andere Bedeutung.
Dieses Items bekommst so nicht weg, aber das Default am Items in der Objektlist bekommst'e damit weg, bzw. das ist schon weg.

MeineKlasse.Items[i] anstatt MeineKlasse.Items.Items[i]

Das erste Items geht nur weg, wenn es selber ein ArrayProperty ist, also z.B. die Klasse vom TObjekt geerbt, bzw. selber dort das Array implementiert.

[mytbo]

Zitat von Rabenrecht:

Json Serialization ist der einzige Grund, warum ich hier überhaupt mit Arrays rumhühnere, anstatt einfach (Object)Listen zu nutzen.

Wenn es auch mORMot sein darf, dann mit ObjectToJson/ObjectLoadJson so:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.json,
  mormot.core.text,
  mormot.core.rtti,
  mormot.core.unicode;
  
type
  TItem = class(TObject)
  private
    FIntValue: Integer;
    FStrValue: RawUtf8;
  public
    constructor Create(pmIntValue: Integer; const pmcStrValue: RawUtf8);
  published
    property IntValue: Integer
      read FIntValue;
    property StrValue: RawUtf8
      read FStrValue;
  end;

constructor TItem.Create(pmIntValue: Integer; const pmcStrValue: RawUtf8);
begin
  inherited Create;
  FIntValue := pmIntValue;
  FStrValue := pmcStrValue;
end;

var
  json: RawJson;
  list: TObjectList;
begin
  list := TObjectList.Create(True);
  try
    for var i: Integer := 0 to 4 do
      list.Add(TItem.Create(i, StringToUtf8(i.ToString)));

    json := ObjectToJson(list, [woHumanReadable, woObjectListWontStoreClassName]);
    ShowMessage(Utf8ToString(json));

    list.Clear;
    ObjectLoadJson(list, json, TItem);
    ShowMessage(Format('Count: %d - Item(3): %d, %s',[list.Count, TItem(list[3]).IntValue, Utf8ToString(TItem(list[3]).StrValue)]));
  finally
    list.Free;
  end;

Die JSON Serialisierung gehört zur mORMot DNA.

Bis bald...
Thomas