2
0
Exilon 3 жил өмнө
parent
commit
d041e98939

+ 3 - 3
Quick.HttpClient.pas

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