AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TJsonObject kann kein Enum?

Ein Thema von Der schöne Günther · begonnen am 14. Jun 2019 · letzter Beitrag vom 14. Jun 2019
Antwort Antwort
Der schöne Günther

Registriert seit: 6. Mär 2013
5.046 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

TJsonObject kann kein Enum?

  Alt 14. Jun 2019, 19:06
Delphi-Version: 10 Seattle
Stelle ich mich zu dumm an oder geht folgendes nicht?

Delphi-Quellcode:
program JsonToEnumProject;

uses
  System.SysUtils,
  System.Json;

type
   TEnum = (one, two, three);

const
   input = '{"enum": "two"}';
var
   jsonObject: TJSONObject;
   enum: TEnum;
begin
   jsonObject := (TJSONObject.ParseJSONValue(input) as TJSONObject);
   try
      // EJSONException: 'Conversion from TJSONString to TEnum is not supported'
      enum := jsonObject.GetValue<TEnum>('enum');
      Assert( enum = TEnum.two);
   finally
      jsonObject.Destroy();
   end;
end.
In System.Json sehe ich dass in der Routine StrToTValue bei einem enum es nicht einmal versucht wird. Ernsthaft? Ist das in aktuellen Delphi-Versionen immer noch so?

Falls ja, ich habe mir einen kleinen Helper gemacht. Wäre der so ok?

Delphi-Quellcode:
   function TJsonObjectHelper.GetValue<T>(const APath: string): T;
   var
      enumInfo: PTypeInfo;
      enumAsString: String;
      enumAsInteger: Integer;
   begin
      enumInfo := TypeInfo(T);
      if(enumInfo.Kind = TTypeKind.tkEnumeration) then
         begin
            enumAsString := GetValue<String>(APath);
            enumAsInteger := GetEnumValue(enumInfo, enumAsString);
            if(enumAsInteger <> -1) then
               Result := TValue.FromOrdinal(enumInfo, enumAsInteger).AsType<T>()
            else
               raise EJSONException.CreateFmt(SNoConversionAvailableForValue, [enumAsString, enumInfo.Name]);
         end
      else
         Result := inherited GetValue<T>(APath);
   end;
(https://gist.github.com/JensMertelme...72876e55009129)
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.628 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#2

AW: TJsonObject kann kein Enum?

  Alt 14. Jun 2019, 21:02
Ja, so toll die JSON Unterstützung in Delphi auch ist, meinen Ansprüchen ist sie damals auch nicht gerecht geworden. Wenn du JSON in der von dir gezeigten manuellen Art und Weise parsen willst, sind diese Klassen für dich vielleicht von Interesse:
https://github.com/flobernd/delphi-u...Utils.JSON.pas

Kurze Doku gibts auch:
https://github.com/flobernd/delphi-utils/wiki/JSON
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.598 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: TJsonObject kann kein Enum?

  Alt 14. Jun 2019, 21:30
Ist das in aktuellen Delphi-Versionen immer noch so?
In 10.3 funktioniert das - aber die Mengen an Code, die dafür durchlaufen werden, sind echt gruselig
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf