Update DataSet.Serialize.Import.pas

viniciussanchez · Mar 31, 2020 · 5ec8c14 · 5ec8c14
1 parent f37adf6
commit 5ec8c14
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/src/core/DataSet.Serialize.Import.pas b/src/core/DataSet.Serialize.Import.pas
@@ -569,13 +569,7 @@ function TJSONSerialize.GetKeyFieldsDataSet(const ADataSet: TDataSet): string;
   Result := EmptyStr;
   for LField in ADataSet.Fields do
     if pfInKey in LField.ProviderFlags then
-    begin
-      Result := Result + IfThen(Result.Trim.IsEmpty, EmptyStr, ';');
-      if TDataSetSerializeConfig.GetInstance.LowerCamelCase then
-        Result := Result + TDataSetSerializeUtils.FieldNameToLowerCamelCase(LField.FieldName)
-      else
-        Result := Result + LField.FieldName;
-    end;
+      Result := Result + IfThen(Result.Trim.IsEmpty, EmptyStr, ';') + LField.FieldName;
 end;
 
 function TJSONSerialize.GetKeyValuesDataSet(const ADataSet: TDataSet; const AJSONObject: TJSONObject): TKeyValues;