Skip to content

Commit

Permalink
Merge pull request #78 from igorbastosib/patch-2
Browse files Browse the repository at this point in the history
Update DataSet.Serialize.Import.pas
  • Loading branch information
viniciussanchez committed Jan 3, 2021
2 parents 11bc551 + 1b67dc3 commit 4ea857a
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/DataSet.Serialize.Import.pas
Original file line number Diff line number Diff line change
Expand Up @@ -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 + '_';
Expand Down

0 comments on commit 4ea857a

Please sign in to comment.