ParseJSONVALUE wie geht das?

[wschrabi]

Zitat von LoZe:

...
uses
Pkg.Json.DTO,
end.[/DELPHI]

Was ist das für eine UNIT????
Pkg ist die in Berlin drin? Denke nicht.
mfg
ws

EDIT: Habs chon von https://www.json2delphi.com/

[Union]

Das sind die JSONDataObjects

[wschrabi]

BESTEN DANK! Mit dem jsontodelphi klappt es sehr gut.

Kann man da noch irgedwie fragen, wenn der ARRAY mehr als 1 Element hat, wieviele er hat und dann das Array durchlaufen um alle Array Element in ein MEMO Feld zu bekommen?
Besten DANK

[LoZe]

ja

  Root.Data.Translations.Items.Count

und du kannst auch alle durchlaufen mit

Delphi-Quellcode:

for I:= 0 to Root.Data.Translations.Items.Count-1 do
begin
  Memo1.Lines.Add(Root.Data.Translations.Items[I].TranslatedText);
end;

[wschrabi]

Tausend DANK!

[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

[Union]

[QUOTE=wschrabi;1509686]

Zitat von LoZe:

ja

  Root.Data.Translations.Items.Count Leider Root.Data.Translations.Items hat das keine COUNT Eigenschaft.

Root.Data.Translations aber schon.

[LoZe]

[QUOTE=wschrabi;1509686]

Zitat von LoZe:

ja
Leider Root.Data.Translations.Items hat das keine COUNT Eigenschaft. Was kann ich tun?
DANKE

Sry war aus dem Kopf raus geschrieben hatte vergessen das Count auf der TObjectList ist.

Die Klasse wandelt den Array automatisch in eine TObjectListe um zur einfacheren Verwendung.

Delphi-Quellcode:

for I:= 0 to Root.Data.Translations.Count-1 do
begin
  Memo1.Lines.Add(Root.Data.Translations.Items[I].TranslatedText);
end;

[wschrabi]

achja DANKE
Jetzt klappt es wunderbar BESTEN DANK