Warning Delphi 12

viniciussanchez · Nov 30, 2023 · b888e84 · b888e84
1 parent 5b0ede8
commit b888e84
Showing 1 changed file with 20 additions and 4 deletions.
diff --git a/src/RESTRequest4D.Request.Client.pas b/src/RESTRequest4D.Request.Client.pas
@@ -117,7 +117,11 @@ function TRequestClient.AddBody(const AContent: TJSONObject; const AOwns: Boolea
     {$IFDEF MSWINDOWS}
       AContent.Free;
     {$ELSE}
-      AContent.DisposeOf;
+      {$IF COMPILERVERSION <= 35}
+        AContent.DisposeOf;
+      {$ELSE}
+        AContent.Free;
+      {$ENDIF}
     {$ENDIF}
   end;
 end;
@@ -133,7 +137,11 @@ function TRequestClient.AddBody(const AContent: TJSONArray; const AOwns: Boolean
     {$IFDEF MSWINDOWS}
       AContent.Free;
     {$ELSE}
-      AContent.DisposeOf;
+      {$IF COMPILERVERSION <= 35}
+        AContent.DisposeOf;
+      {$ELSE}
+        AContent.Free;
+      {$ENDIF}
     {$ENDIF}
   end;
 end;
@@ -153,7 +161,11 @@ function TRequestClient.AddBody(const AContent: TObject; const AOwns: Boolean):
     {$IFDEF MSWINDOWS}
       AContent.Free;
     {$ELSE}
-      AContent.DisposeOf;
+      {$IF COMPILERVERSION <= 35}
+        AContent.DisposeOf;
+      {$ELSE}
+        AContent.Free;
+      {$ENDIF}
     {$ENDIF}
   end;
 end;
@@ -637,7 +649,11 @@ function TRequestClient.AddBody(const AContent: TStream; const AOwns: Boolean):
     {$IFDEF MSWINDOWS}
       AContent.Free;
     {$ELSE}
-      AContent.DisposeOf;
+      {$IF COMPILERVERSION <= 35}
+        AContent.DisposeOf;
+      {$ELSE}
+        AContent.Free;
+      {$ENDIF}
     {$ENDIF}
   end;
 end;