Feature: jtUnknown mapped to a string

Author: Jens Borrisholt

Lib/Pkg.Json.JsonValueHelper.pas

@@ -26,6 +26,7 @@ class function TJsonValueHelper.GetJsonType(aJsonValue: TJsonValue): TJsonType;
   b: Boolean;
   d: Double;
   E: Extended;
+  DT: TdateTime;
 begin
   if aJsonValue = nil then
     exit(jtObject);
@@ -59,12 +60,8 @@ class function TJsonValueHelper.GetJsonType(aJsonValue: TJsonValue): TJsonType;
   begin
     Value := aJsonValue.AsType<string>;
 
-    try
-      ISO8601ToDate(Value);
+    if TryISO8601ToDate(Value, DT) then
       exit(jtDateTime);
-    except
-
-    end;
 
     if TryStrToFloat(Value, E) then
       Result := jtString

Lib/Pkg.Json.Mapper.pas

@@ -66,29 +66,13 @@ procedure TPkgJsonMapper.ProcessJsonObject(aJsonValue: TJsonValue; aParentClass:
   if aJsonValue = nil then
     exit;
 
-  if not(aJsonValue is TJSONObject) then
-  begin
-    JsonType := GetJsonType(aJsonValue);
-
-    var
-    Name := 'Element';
-
-    if (aJsonValue is TJsonString) then
-      Name := (aJsonValue as TJsonString).Value;
-
-    TStubField.Create(aParentClass, Name, JsonType);
-    exit;
-  end;
-
   JSONObject := aJsonValue as TJSONObject;
   for JsonPair in JSONObject do
   begin
     JSONValue := JsonPair.JSONValue;
     JsonType := GetJsonType(JSONValue);
 
     case JsonType of
-      jtUnknown,
-      // { do nothing };
       jtObject:
         begin
           StubClass := TStubClass.Construct(aParentClass, JsonPair.JsonString.Value, Self.FStubClasses);

Lib/Pkg.Json.StubField.pas

@@ -22,7 +22,7 @@   TStubField = class(TJsonName)
     FName: string;
   strict protected
     procedure SetName(const Value: string); override;
-    class function GetTypeAsString(AType: TJsonType): string; overload;
+    class function GetTypeAsString(aJsonType: TJsonType): string; overload;
     function GetTypeAsString: string; overload; virtual;
   public
     function IsArrayField: Boolean;
@@ -378,9 +378,6 @@     Lines.Add(Name + ' = class' + IfThen(BaseClass = '', '', '(' + BaseClass + '
 
     for StubField in FItems do
     begin
-      if (StubField.FieldType = jtUnknown) or ((StubField is TStubContainerField) and ((StubField as TStubContainerField).ContainedType = jtUnknown)) then
-        Lines.AddFormat('  property %s: %s read %s write %s;', [StubField.PropertyName, StubField.TypeAsString, StubField.FieldName, StubField.FieldName]);
-
       if StubField.IsArrayField then
       begin
         StubArrayField := StubField as TStubArrayField;
@@ -443,11 +440,11 @@ constructor TStubField.Create(aParentClass: TStubClass; aItemName: string; aFiel
     FParentClass.Items.Add(Self);
 end;
 
-class function TStubField.GetTypeAsString(AType: TJsonType): string;
+class function TStubField.GetTypeAsString(aJsonType: TJsonType): string;
 begin
-  case AType of
+  case aJsonType of
     jtUnknown:
-      Result := 'Unknown';
+      Result := 'string';
     jtString:
       Result := 'string';
     jtTrue, jtFalse: