我正在测试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);
尽管这可能可行,但是您应该考虑限制在有意义的条件下返回的对象的数量。