Explorar o código

* Avoid extra load at EOF if no pages are used

michael %!s(int64=7) %!d(string=hai) anos
pai
achega
ffc2238def
Modificáronse 1 ficheiros con 8 adicións e 3 borrados
  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;