我正在为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;
答案 0 :(得分:2)
您可以将限制作为参数:
QueryObjects('Lists', ['limit=1000'], LJSONArray);
Parse一次不能获得超过1000条记录。要检索接下来的1000条记录,请使用skip参数:
QueryObjects('Lists', ['limit=1000', 'skip=1000'], LJSONArray);
虽然这可能有用,但您应该考虑限制使用有意义条件返回的对象数。