浏览代码

* 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
     end
   else
   else
     begin
     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;
 end;
 end;