Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Hier habe ich so etwas auch schon mal verwurstet
https://github.com/SirRufo/PropertyList
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Was auch nicht wirklich angenehm ist.
Da ist mir JSON.AddPair( 'Tuer', value); wesentlich lieber, schon wegen der Übersichtlichkeit (und der wesentlich geringeren Tipparbeit) ;)
Und noch schicker wäre es mit JSON := value; :mrgreen:
P.S. Hab die Erweiterung dafür mal oben ergänzt ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Nun ja, das ist eigentlich Schema F.
Einen Record wegen dem impliziten Cast
Ein Closure als Factory
Ein/Zwei Class Helper um die Funktionalität unterzujubeln
Mehr ist es ja nicht :stupid:
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Also mit ein bisserl gutem Willen und Spucke (class helper) bekommt man folgendes hin:
procedure Test1;
var
lJson: TJsonObject;
begin
lJson := TJsonObject.Create;
lJson.AddPair( TJsonPair.Create( 'int', 42 ) );
lJson.AddPair( 'double', 42.01 );
lJson.AddPair( 'bool-a', false );
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Mit JSON.AddPair(TJSONPair.Create('Name', TJSONNumber.Create( 42.0 ) )); :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
18. Jan 2016
Mit JSON.AddPair(TJSONPair.Create('Name', TJSONNumber.Create( 42 ) ));