Error to Parse

.gitignore

@@ -51,4 +51,105 @@
 
 # Delphi history and backups
 __history/
-*.~*
+__recover/
+__recovery/
+Win32/
+Win64/
+*.~*
+
+__recovery/uMainForm.pas
+__recovery/uMainForm.fmx
+__recovery/__recovery.ini
+
+
+
+Unit Test/__recovery/
+
+Unit Test/Win32/Debug/
+
+*.skincfg
+
+*.vlb
+
+*.res
+
+
+###################
+# WEB APP #
+###################
+
+###################
+# compiled source #
+###################
+*.com
+*.class
+*.dll
+*.exe
+*.pdb
+*.dll.config
+*.cache
+*.suo
+# Include dlls if they’re in the NuGet packages directory
+!/packages/*/lib/*.dll
+!/packages/*/lib/*/*.dll
+# Include dlls if they're in the CommonReferences directory
+!*CommonReferences/*.dll
+####################
+# VS Upgrade stuff #
+####################
+UpgradeLog.XML
+_UpgradeReport_Files/
+###############
+# Directories #
+###############
+bin/
+obj/
+TestResults/
+###################
+# Web publish log #
+###################
+*.Publish.xml
+#############
+# Resharper #
+#############
+/_ReSharper.*
+*.ReSharper.*
+############
+# Packages #
+############
+# it’s better to unpack these files and commit the raw source
+# git has its own built in compression methods
+*.7z
+*.dmg
+*.gz
+*.iso
+*.jar
+*.rar
+*.tar
+*.zip
+######################
+# Logs and databases #
+######################
+*.log
+*.sqlite
+# OS generated files #
+######################
+.DS_Store?
+ehthumbs.db
+Icon?
+Thumbs.db
+[Bb]in
+[Oo]bj
+[Tt]est[Rr]esults
+*.suo
+*.user
+*.[Cc]ache
+*[Rr]esharper*
+packages
+NuGet.exe
+_[Ss]cripts
+*.exe
+*.dll
+*.nupkg
+*.ncrunchsolution
+*.dot[Cc]over

Components/Pkg.Json.Components.Update.pas

@@ -0,0 +1,78 @@
+unit Pkg.Json.Components.Update;
+
+interface
+
+uses
+  System.JSON, System.SysUtils,
+
+  Pkg.JSON.ThreadingEx, DTO.GitHUB.ReleaseDTO;
+
+const
+  ProgramVersion: double = 3.2;
+  ProgramUrl = 'https://github.com/JensBorrisholt/Delphi-JsonToDelphiClass';
+  HTTP_OK = 200;
+
+function CheckForUpdate(AOnFinish: TProc<TRelease, string>): ITaskEx;
+
+implementation
+
+uses
+  System.Net.HttpClient, System.Net.HttpClientComponent;
+
+function CheckForUpdate(AOnFinish: TProc<TRelease, string>): ITaskEx;
+const
+  UpdateUrl = 'https://api.github.com/repos/JensBorrisholt/Delphi-JsonToDelphiClass/releases';
+  HTTP_OK = 200;
+var
+  ErrorMessage: string;
+  Releases: TReleases;
+  Release: TRelease;
+  Respons: IHTTPResponse;
+begin
+  Result := TTaskEx.Run(
+    procedure
+
+    begin
+      Releases := TReleases.Create;
+      with TNetHTTPClient.Create(nil) do
+        try
+          try
+            Respons := Get(UpdateUrl);
+
+            if Respons.StatusCode = HTTP_OK then
+              Releases.AsJson := Respons.ContentAsString
+            else
+            begin
+              Release := nil;
+              Exit;
+
+
+            end;
+
+            if Releases.Items.Count >= 0 then
+            begin
+              Release := Releases.Items.First;
+              if JsonToFloat(Release.TagName) <= ProgramVersion then
+                Release := nil;
+            end
+            else
+              Release := nil;
+
+            ErrorMessage := '';
+          except
+            on e: Exception do
+              ErrorMessage := e.message;
+          end;
+        finally
+          Free;
+        end;
+    end
+    ).ContinueWithInMainThread(
+    procedure(const aTask: ITaskEx)
+    begin
+      AOnFinish(Release, ErrorMessage);
+      FreeAndNil(Releases);
+    end, TTaskContinuationOptions.OnlyOnCompleted);
+end;
+
+end.

Components/Pkg.Json.Visualizer.pas

@@ -0,0 +1,139 @@
+unit Pkg.Json.Visualizer;
+
+interface
+
+uses
+  FMX.TreeView,
+
+  Pkg.Json.Mapper, Pkg.Json.StubField;
+
+Type
+  JsonVisualizer = class
+  private
+    class procedure InternalFormatTreeViewFields(AItem: TTreeViewItem);
+    class procedure FormatFields(aTreeView: TTreeView);
+    class procedure InternalVisualize(aTreeViewItem: TTreeViewItem; aClass: TStubClass; AItemStyleLookup: string);
+
+  public
+    // Visualizes stub class structure in a treeview
+    class procedure Visualize(aTreeView: TTreeView; AItemStyleLookup: string; aJsonString: string); overload;
+    class procedure Visualize(aTreeView: TTreeView; AItemStyleLookup: string; aMapper: TPkgJsonMapper); overload;
+  end;
+
+implementation
+
+uses
+  System.Sysutils, Pkg.Json.JsonValueHelper;
+
+{ TJsonVisualizer }
+
+class procedure JsonVisualizer.Visualize(aTreeView: TTreeView; AItemStyleLookup: string; aJsonString: string);
+var
+  JsonMapper: TPkgJsonMapper;
+begin
+  JsonMapper := TPkgJsonMapper.Create;
+  try
+    JsonMapper.Parse(aJsonString);
+    Visualize(aTreeView, AItemStyleLookup, JsonMapper);
+  finally
+    JsonMapper.Free;
+  end;
+end;
+
+class procedure JsonVisualizer.FormatFields(aTreeView: TTreeView);
+begin
+  if aTreeView.Count = 1 then
+    InternalFormatTreeViewFields(aTreeView.Items[0]);
+end;
+
+class procedure JsonVisualizer.InternalFormatTreeViewFields(AItem: TTreeViewItem);
+var
+  LItem: TTreeViewItem;
+  k: Integer;
+  LSize, LPos: Integer;
+begin
+  LSize := 0;
+
+  // Find max len
+  for k := 0 to AItem.Count - 1 do
+  begin
+    LItem := AItem.Items[k];
+    LPos := Pos(':', LItem.Text);
+    if (LPos > 0) AND (LPos > LSize) then
+      LSize := LPos;
+  end;
+
+  for k := 0 to AItem.Count - 1 do
+  begin
+    LItem := AItem.Items[k];
+    LPos := LSize - Pos(':', LItem.Text);
+    if (LPos > 0) then
+      LItem.Text := LItem.Text.Replace(':', StringOfChar(' ', LPos) + ':');
+
+    InternalFormatTreeViewFields(LItem);
+  end;
+
+end;
+
+class procedure JsonVisualizer.InternalVisualize(aTreeViewItem: TTreeViewItem; aClass: TStubClass; AItemStyleLookup: string);
+var
+  StubField: TStubField;
+  TreeViewItem: TTreeViewItem;
+begin
+  for StubField in aClass.Items do
+  begin
+    TreeViewItem := TTreeViewItem.Create(aTreeViewItem);
+    TreeViewItem.StyleLookup := AItemStyleLookup;
+    TreeViewItem.TagObject := StubField;
+    TreeViewItem.WordWrap := false;
+
+    case StubField.FieldType of
+      jtObject:
+        begin
+          TreeViewItem.Text := StubField.Name + ': {} ' + StubField.TypeAsString;
+          InternalVisualize(TreeViewItem, (StubField as TStubObjectField).FieldClass, AItemStyleLookup);
+        end;
+
+      jtArray:
+        begin
+          TreeViewItem.Text := StubField.Name + ': [] ' + StubField.TypeAsString;
+          if (StubField as TStubArrayField).ContainedType = jtObject then
+            InternalVisualize(TreeViewItem, (StubField as TStubArrayField).FieldClass, AItemStyleLookup);
+        end;
+
+    else
+      TreeViewItem.Text := StubField.Name + ': ' + StubField.TypeAsString;
+    end;
+
+    aTreeViewItem.AddObject(TreeViewItem);
+  end;
+end;
+
+class procedure JsonVisualizer.Visualize(aTreeView: TTreeView; AItemStyleLookup: string; aMapper: TPkgJsonMapper);
+var
+  TreeViewItem: TTreeViewItem;
+  RootClass: TStubClass;
+begin
+  aTreeView.Clear;
+  try
+    RootClass := aMapper.RootClass;
+    if RootClass = nil then
+      exit;
+
+    aTreeView.BeginUpdate;
+    TreeViewItem := TTreeViewItem.Create(aTreeView);
+    TreeViewItem.Text := RootClass.Name;
+    TreeViewItem.TagObject := RootClass;
+    TreeViewItem.WordWrap := false;
+    aTreeView.AddObject(TreeViewItem);
+    InternalVisualize(TreeViewItem, RootClass, AItemStyleLookup);
+    FormatFields(aTreeView);
+  finally
+    aTreeView.ExpandAll;
+    aTreeView.EndUpdate;
+  end;
+
+end;
+
+end.
+