ParseJSONVALUE wie geht das?

[wschrabi]

Zitat von LoZe:

ja

  Root.Data.Translations.Items.Count

Leider Root.Data.Translations.Items hat das keine COUNT Eigenschaft. Was kann ich tun?
Wenn ich das verstehe ist das eine ObjectList und kein Array.
guck mal, kann man das irgendwie CASTen

Delphi-Quellcode:

type
  TTranslations = class;

  TTranslations = class
  private
    FTranslatedText: string;
  published
    property TranslatedText: string read FTranslatedText write FTranslatedText;
  end;
  
  TData = class(TJsonDTO)
  private
    [JSONName('translations'), JSONMarshalled(False)]
    FTranslationsArray: TArray<TTranslations>;
    [GenericListReflect]
    FTranslations: TObjectList<TTranslations>;
    function GetTranslations: TObjectList<TTranslations>;
  protected
    function GetAsJson: string; override;
  published
    property Translations: TObjectList<TTranslations> read GetTranslations;
  public
    destructor Destroy; override;
  end;
  
  TRoot = class(TJsonDTO)
  private
    FData: TData;
  published
    property Data: TData read FData;
  public
    constructor Create; override;
    destructor Destroy; override;
  end;

DANKE