Merge pull request #91 from laprado/master

fix issue Identifier idents no member DisposeOf #90
viniciussanchez · Apr 7, 2022 · 00748e5 · 00748e5
2 parents f3b7519 + 4025c5f
commit 00748e5
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/RESTRequest4D.Request.Indy.pas b/src/RESTRequest4D.Request.Indy.pas
@@ -106,7 +106,7 @@ function TRequestIndy.AddBody(const AContent: TStream; const AOwns: Boolean): IR
   finally
     if AOwns then
     begin
-      {$IFDEF MSWINDOWS OR FPC}
+      {$IF DEFINED(MSWINDOWS) OR DEFINED(FPC)}
         AContent.Free;
       {$ELSE}
         AContent.DisposeOf;
@@ -126,7 +126,7 @@ function TRequestIndy.AddCookies(const ACookies: TStrings): IRequest;
       FIdHTTP.CookieManager := TIdCookieManager.Create(FIdHTTP);
     FIdHTTP.CookieManager.AddServerCookies(ACookies, LURI);
   finally
-    {$IFDEF MSWINDOWS OR FPC}
+    {$IF DEFINED(MSWINDOWS) OR DEFINED(FPC)}
       ACookies.Free;
     {$ELSE}
       ACookies.DisposeOf;
@@ -388,7 +388,7 @@ function TRequestIndy.AddBody(const AContent: TObject; const AOwns: Boolean): IR
     LJSONObject.Free;
     if AOwns then
     begin
-      {$IFDEF MSWINDOWS OR FPC}
+      {$IF DEFINED(MSWINDOWS) OR DEFINED(FPC)}
         AContent.Free;
       {$ELSE}
         AContent.DisposeOf;
@@ -413,7 +413,7 @@ function TRequestIndy.AddBody(const AContent: TJSONArray; const AOwns: Boolean):
 {$ENDIF}
   if AOwns then
   begin
-    {$IFDEF MSWINDOWS OR FPC}
+    {$IF DEFINED(MSWINDOWS) OR DEFINED(FPC)}
       AContent.Free;
     {$ELSE}
       AContent.DisposeOf;
@@ -430,7 +430,7 @@ function TRequestIndy.AddBody(const AContent: TJSONObject; const AOwns: Boolean)
 {$ENDIF}
   if AOwns then
   begin
-    {$IFDEF MSWINDOWS OR FPC}
+    {$IF DEFINED(MSWINDOWS) OR DEFINED(FPC)}
       AContent.Free;
     {$ELSE}
       AContent.DisposeOf;