search

onryldz / x-superobject

Delphi Cross Platform Rapid JSON
316 stars 118 forks source link

Exception with TSuperRecord RTTI #7

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
// DELPHI XE5+WIN32
var
  Parse: TTest; // For Record;
  S: String;
begin
  Parse := TSuperRecord<TTest>.ToJSON
    ('{"A": 1, "B": 0, "C": true, "D": "Hello", "E":{"A": 3, "B": "Delphi"}, "F": {"A": 4, "B": 5}, "G": [0,2]}');

  S := TSuperRecord<TTest>.AsJSON(Parse);
  ShowMessage(S);
  ShowMessage(Parse.D);
end;

Original issue reported on code.google.com by GreenSai...@gmail.com on 19 Oct 2013 at 8:14

GoogleCodeExporter commented 9 years ago

Original comment by onryld...@gmail.com on 19 Oct 2013 at 9:53

GoogleCodeExporter commented 9 years ago 
This issue was closed by revision r23.

Original comment by onryld...@gmail.com on 19 Oct 2013 at 10:48