Merge pull request #131 from igorbastosib/master

Fixing the CompilationVersion for the String index
viniciussanchez · Jan 28, 2022 · 23c28d3 · 23c28d3
2 parents 12d3d78 + e1fe693
commit 23c28d3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/DataSet.Serialize.Import.pas b/src/DataSet.Serialize.Import.pas
@@ -421,7 +421,7 @@ function TJSONSerialize.JSONPairToFieldName(const AValue: string): string;
   if TDataSetSerializeConfig.GetInstance.CaseNameDefinition = cndLowerCamelCase then
   begin
     LFieldName := EmptyStr;
-    {$IF (DEFINED(ANDROID) or DEFINED(IOS)) and (CompilerVersion < 33.0)}
+    {$IF (DEFINED(ANDROID) or DEFINED(IOS)) and (CompilerVersion < 34.0)}
     for I := 0 to Pred(Length(Result)) do
     {$ELSE}
     for I := 1 to Length(Result) do
@@ -431,7 +431,7 @@ function TJSONSerialize.JSONPairToFieldName(const AValue: string): string;
       if CharInSet(Result[I], ['A'..'Z']) and CharInSet(Result[Pred(I)], ['a'..'z']) then
       {$ELSE}
       LCharacter := Result[I];
-      {$IF CompilerVersion >= 33.0}
+      {$IF CompilerVersion >= 34.0}
       if i > 1 then
       {$ENDIF}
         LCharacterBefore := Result[Pred(I)];