Bug ToJSONArrayString and ToJSONObjectString on Lazarus

viniciussanchez · Jan 14, 2021 · 40451c3 · 40451c3
1 parent e3802cd
commit 40451c3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/DataSet.Serialize.pas b/src/DataSet.Serialize.pas
@@ -247,7 +247,7 @@ function TDataSetSerializeHelper.ToJSONObjectString(const AOnlyUpdatedRecords: B
 begin
   LJSONObject := Self.ToJSONObject(AOnlyUpdatedRecords, AChildRecords);
   try
-    Result := LJSONObject.ToString;
+    Result := {$IF DEFINED(FPC)}LJSONObject.AsJSON{$ELSE}LJSONObject.ToString{$ENDIF};
   finally
     LJSONObject.Free;
   end;
@@ -259,7 +259,7 @@ function TDataSetSerializeHelper.ToJSONArrayString(const AOnlyUpdatedRecords: Bo
 begin
   LJSONArray := Self.ToJSONArray(AOnlyUpdatedRecords, AChildRecords);
   try
-    Result := LJSONArray.ToString;
+    Result := {$IF DEFINED(FPC)}LJSONArray.AsJSON{$ELSE}LJSONArray.ToString{$ENDIF};
   finally
     LJSONArray.Free;
   end;