Merge pull request #78 from igorbastosib/patch-2

Update DataSet.Serialize.Import.pas
viniciussanchez · Jan 3, 2021 · 4ea857a · 4ea857a
2 parents 11bc551 + 1b67dc3
commit 4ea857a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/DataSet.Serialize.Import.pas b/src/DataSet.Serialize.Import.pas
@@ -414,7 +414,11 @@ function TJSONSerialize.JSONPairToFieldName(const AValue: string): string;
   if TDataSetSerializeConfig.GetInstance.CaseNameDefinition = cndLowerCamelCase then
   begin
     LFieldName := EmptyStr;
+    {$IFDEF ANDROID}
+    for I := 0 to Pred(Length(Result)) do
+    {$ELSE}
     for I := 1 to Length(Result) do
+    {$ENDIF}
     begin
       if CharInSet(Result[I], ['A'..'Z']) and CharInSet(Result[Pred(I)], ['a'..'z']) then
         LFieldName := LFieldName + '_';