add AFieldNamePolicy: TFieldNamePolicy to TDataSetHelper.AsJSONObjectString

[Ravaut123]

Error in unitest:

function TRESTClient.DataSetInsert(const AResource: string; ADataSet: TDataSet; AFieldNamePolicy: TFieldNamePolicy) : IRESTResponse; begin Result := doPOST(AResource, [], ADataSet.AsJSONObjectString(False, AFieldNamePolicy)); end;

Add TFieldNamePolicy

function TDataSetHelper.AsJSONObjectString(AReturnEmptyStringIfEOF: boolean;  AFieldNamePolicy: TFieldNamePolicy): string;
var
  JObj: TJSONObject;
begin
  JObj := AsJSONObject(True, AFieldNamePolicy);
  if not Assigned(JObj) then
  begin
    if AReturnEmptyStringIfEOF then
      Result := ''
    else
      Result := '{}';
  end
  else
    try
      { .$IFDEF TOJSON }
      Result := JObj.ToJSON;
      { .$ELSE }
      // Result := JObj.ToString
      { .$IFEND }
    finally
      JObj.Free;
    end;
end;