Gehen strings als Eigenschaftsnamen? Wenn ja wie?

[Schokohase]

Gibt es eigentlich einen Grund dafür warum du nicht einfach eine Klasse mit den passenden Eigenschaften deklarierst und dann mit REST.Json.TJson.JsonToObject arbeitest?

Die GroupOptions würden z.B. in diese Klasse passen

Delphi-Quellcode:

uses
  REST.Json.Types;

TGroupOptionsData = class
private
  [JSONName( 'ChatID' )]
  FChatId:                string;
  [JSONName( 'DeleteSpam' )]
  FDeleteSpam:            Boolean;
  [JSONName( 'RestrictNewUser' )]
  FRestrictNewUser:       Boolean;
  [JSONName( 'AntiSpamMessage' )]
  FAntiSpamMessage:       string;
  [JSONName( 'can_send_messages' )]
  FCanSendMessages:       Boolean;
  [JSONName( 'can_send_media_messages' )]
  FCanSendMediaMessages:  Boolean;
  [JSONName( 'can_send_other_messages' )]
  FCanSendOtherMessages:  Boolean;
  [JSONName( 'can_add_web_page_previews' )]
  FCanAddWebPagePreviews: Boolean;
  [JSONName( 'Creator' )]
  FCreator:               string;
  [JSONName( 'blacklist' )]
  FBlacklist:             string;
  [JSONName( 'whitelist' )]
  FWhitelist:             string;
  [JSONName( 'restrict_time' )]
  FRestrictTime:          Integer;
  [JSONName( 'welcomemessage' )]
  FWelcomeMessage:        string;
  [JSONName( 'start' )]
  FStart:                 Boolean;
public
  property ChatId: string read FChatId write FChatId;
  property DeleteSpam: Boolean read FDeleteSpam write FDeleteSpam;
  property RestrictNewUser: Boolean read FRestrictNewUser write FRestrictNewUser;
  property AntiSpamMessage: string read FAntiSpamMessage write FAntiSpamMessage;
  property CanSendMessages: Boolean read FCanSendMessages write FCanSendMessages;
  property CanSendMediaMessages: Boolean read FCanSendMediaMessages write FCanSendMediaMessages;
  property CanSendOtherMessages: Boolean read FCanSendOtherMessages write FCanSendOtherMessages;
  property CanAddWebPagePreviews: Boolean read FCanAddWebPagePreviews write FCanAddWebPagePreviews;
  property Creator: string read FCreator write FCreator;
  property Blacklist: string read FBlacklist write FBlacklist;
  property Whitelist: string read FWhitelist write FWhitelist;
  property RestrictTime: Integer read FRestrictTime write FRestrictTime;
  property WelcomeMessage: string read FWelcomeMessage write FWelcomeMessage;
  property Start: Boolean read FStart write FStart;
end;

und dann einfach

Delphi-Quellcode:

uses
  REST.Json;

const
  jsonstr =                                                  //
    '  {' + sLineBreak +                                     //
    '    "ChatID": "-xxxxxx",' + sLineBreak +                //
    '    "DeleteSpam": true,' + sLineBreak +                 //
    '    "RestrictNewUser": true,' + sLineBreak +            //
    '    "AntiSpamMessage": "SpamPost",' + sLineBreak +      //
    '    "can_send_messages": true,' + sLineBreak +          //
    '    "can_send_media_messages": false,' + sLineBreak +   //
    '    "can_send_other_messages": false,' + sLineBreak +   //
    '    "can_add_web_page_previews": false,' + sLineBreak + //
    '    "Creator": "blablub",' + sLineBreak +               //
    '    "blacklist": "blablub",' + sLineBreak +             //
    '    "whitelist": "",' + sLineBreak +                    //
    '    "restrict_time": 15,' + sLineBreak +                //
    '    "welcomemessage": "",' + sLineBreak +               //
    '    "start": true' + sLineBreak +                       //
    '  }';
var 
  options: TGroupOptionsData;
begin
  options := TJson.JsonToObject<TGroupOptionsData>(jsonstr);
  try
    // ...
  finally
    options.Free;
  end;
end;

[ScharfeMietze]

hpffffffffff Die Antwort ist simpel. Ich wusste nicht das es auch so geht ..


Vielen Dank! Werde ich bei Tageslicht ausprobieren ...
das ist natürlich extrem wenig code und damit sehr sympatisch. wenn es um json geht...
Extrem lehrreich der Tag für mich! Danke


Frage: Ist das case sensitive?


Ich habe ein weiteres Problem, das in meinem JsonString nicht nur 1 Objekt von dem Typ TBotOptions ist sondern beliebig viele... im Reader erstellt er mir immer am Anfang eines neuen Objektes LBotoptions und speichert es am ende in eine generische Liste.

Ich wüsste nicht wie ich das mit deiner Methode umsetze....

[Schokohase]

Schau dir mal https://jsontodelphi.com an.

Ein Nachteil ist allerdings, dass dort nicht mit dem JSONName Attribut gearbeitet wird (siehe mein Code).

Bei JSON sind die Eigenschaftsnamen case-sensitive bei Delphi nicht. Und dann passiert z.B. so etwas wie

Code:

{
  "foo": 1,
  "Foo": 2
}

Delphi-Quellcode:

unit RootUnit;

{*******************************************************************************
    Generated By   : JsonToDelphiClass - 0.65 
    Project link   : https://github.com/PKGeorgiev/Delphi-JsonToDelphiClass
    Generated On   : 2018-10-08 01:16:30

    Created By     : Petar Georgiev - (http://pgeorgiev.com) 
    Adapted Web By : Marlon Nardi - (http://jsontodelphi.com)
*******************************************************************************}

interface

uses Generics.Collections, Rest.Json;

type

TRootClass = class
private
  FFoo: Extended;
  FFoo: Extended;
public
  property Foo: Extended read FFoo write FFoo;
  property foo: Extended read FFoo write FFoo;
  function ToJsonString: string;
  class function FromJsonString(AJsonString: string): TRootClass;
end;

implementation

{TRootClass}


function TRootClass.ToJsonString: string;
begin
  result := TJson.ObjectToJsonString(self);
end;

class function TRootClass.FromJsonString(AJsonString: string): TRootClass;
begin
  result := TJson.JsonToObject<TRootClass>(AJsonString)
end;

end.

[ScharfeMietze]

Ja super vielen Dank
Gruß