Преглед изворни кода

* Avoid extra load at EOF if no pages are used

michael пре 7 година
родитељ
комит
ffc2238def
1 измењених фајлова са 8 додато и 3 уклоњено
  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;