我正在测试Delphi XE8的Parse Baas服务。

该程序仅返回100条记录(来自Parse的默认限制)。

如何更改此限制并将所有记录下载到客户端delphi端?

procedure TForm1.RefreshList;
var
  LJSONArray : TJSONArray;
  LItem: TListViewItem;
  I: Integer;
begin
  LJSONArray := TJSONArray.Create;
  try

    BackendStorage1.Storage.QueryObjects('Lists', [], LJSONArray);
    ListView1.ClearItems;
    for I := 0 to LJSONArray.Count-1 do
    begin
      LItem := ListView1.Items.Add;
      LItem.Text := (LJSonArray.Items[I].GetValue<string>('Name'));
    end;
  finally
    LJSONArray.Free;
  end;
end;

最佳答案

您可以将限制作为参数:

QueryObjects('Lists', ['limit=1000'], LJSONArray);


从“解析”一次获取的记录最多不能超过1000条。要检索接下来的1000条记录,请使用skip参数:

QueryObjects('Lists', ['limit=1000', 'skip=1000'], LJSONArray);


尽管这可能可行,但是您应该考虑限制在有意义的条件下返回的对象的数量。

10-04 18:36