Ver Fonte

[httpClient] raise fixes

Exilon há 3 anos atrás
pai
commit
d041e98939
1 ficheiros alterados com 3 adições e 3 exclusões
  1. 3 3
      Quick.HttpClient.pas

+ 3 - 3
Quick.HttpClient.pas

@@ -211,7 +211,7 @@ begin
         except
           on E : Exception do
           begin
-            if e.ClassType <> EIdConnClosedGracefully then raise e;
+            if e.ClassType <> EIdConnClosedGracefully then raise;
           end;
         end;
         {$ELSE}
@@ -250,7 +250,7 @@ begin
       except
         on E : Exception do
         begin
-          if e.ClassType <> EIdConnClosedGracefully then raise e;
+          if e.ClassType <> EIdConnClosedGracefully then raise;
         end;
       end;
       {$ELSE}
@@ -302,7 +302,7 @@ begin
         except
           on E : Exception do
           begin
-            if e.ClassType <> EIdConnClosedGracefully then raise e;
+            if e.ClassType <> EIdConnClosedGracefully then raise;
           end;
         end;
         {$ELSE}