Browse Source

* Avoid extra load at EOF if no pages are used

michael 7 years ago
parent
commit
ffc2238def
1 changed files with 8 additions and 3 deletions
  1. 8 3
      packages/fcl-db/restconnection.pas

+ 8 - 3
packages/fcl-db/restconnection.pas

@@ -281,9 +281,14 @@ begin
     end
   else
     begin
-    R.FXHR.open('GET',URL,true);
-    R.FXHR.send;
-    Result:=True;
+    if (loAtEOF in R.LoadOptions) and (Connection.PageParam='') then
+      R.Success:=rrEOF
+    else
+      begin
+      R.FXHR.open('GET',URL,true);
+      R.FXHR.send;
+      Result:=True;
+      end;
     end;
 end;