fit/adjustments-for-previous-versions-of-delphi

Author: Cesar4D

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.Model.pas

@@ -122,7 +122,11 @@ procedure TDelphiAIDevDefaultsQuestionsModel.SaveData(const AFields: TDelphiAIDe
       LJSONObject.AddPair('code_only', TJSONBool.Create(AFields.CodeOnly));
       LJSONArray.AddElement(LJSONObject);
 
-      LStringList.Text := LJSONArray.Format(2);
+      {$IF CompilerVersion <= 32.0} //Tokyo
+        LStringList.Text := LJSONArray.ToJSON;
+      {$ELSE}
+        LStringList.Text := LJSONArray.Format(2);
+      {$ENDIF}
     finally
       LJSONArray.Free;
     end;
@@ -183,7 +187,11 @@ procedure TDelphiAIDevDefaultsQuestionsModel.EditData(const AFields: TDelphiAIDe
         end;
       end;
 
-      LStringList.Text := LJSONArray.Format(2);
+      {$IF CompilerVersion <= 32.0} //Tokyo
+        LStringList.Text := LJSONArray.ToJSON;
+      {$ELSE}
+        LStringList.Text := LJSONArray.Format(2);
+      {$ENDIF}
     finally
       LJSONArray.Free;
     end;
@@ -228,7 +236,11 @@ procedure TDelphiAIDevDefaultsQuestionsModel.RemoveData(const AGuid: string);
         end;
       end;
 
-      LStringList.Text := LJSONArray.Format(2);
+      {$IF CompilerVersion <= 32.0} //Tokyo
+        LStringList.Text := LJSONArray.ToJSON;
+      {$ELSE}
+        LStringList.Text := LJSONArray.Format(2);
+      {$ENDIF}
     finally
       LJSONArray.Free;
     end;

Src/Utils/DelphiAIDev.Utils.OTA.pas

@@ -424,7 +424,7 @@ class function TUtilsOTA.CheckIfExistFileInCurrentsProjectGroups(const ANameFile
 end;
 
 class procedure TUtilsOTA.IDEThemingAll(AFormClass: TCustomFormClass; AForm: TForm);
-{$IF CompilerVersion >= 32.0}
+{$IF CompilerVersion >= 32.0} //Tokyo
 var
   i: Integer;
   LIOTAIDEThemingServices250: IOTAIDEThemingServices250;
@@ -467,7 +467,7 @@ class function TUtilsOTA.ActiveThemeIsDark: Boolean;
 const
   THEME_DARK = 'dark';
 begin
-  {$IF CompilerVersion >= 32.0}
+  {$IF CompilerVersion >= 32.0} //Tokyo
     Result := Self.GetIOTAIDEThemingServices.ActiveTheme.ToLower.Equals(THEME_DARK);
   {$ELSE}
     Result := False;
@@ -496,8 +496,7 @@ class function TUtilsOTA.GetIOTAFormEditor(const AIOTAModule: IOTAModule): IOTAF
   end;
 end;
 
-{$IF CompilerVersion >= 32.0}
-
+{$IF CompilerVersion >= 32.0} //Tokyo
 class function TUtilsOTA.GetIOTAIDEThemingServices: IOTAIDEThemingServices;
 begin
   if(not Supports(BorlandIDEServices, IOTAIDEThemingServices, Result))then
@@ -511,7 +510,6 @@ class function TUtilsOTA.GetIOTAIDEThemingServices250: IOTAIDEThemingServices250
 end;
 {$ENDIF}
 
-
 class function TUtilsOTA.GetIOTACompileServices: IOTACompileServices;
 begin
   if(not Supports(BorlandIDEServices, IOTACompileServices, Result))then