使用 TListView 搜索创建加载更多过滤器 - Firemonkey 移动应用程序

Question

我设法通过一个 TEdit 创建了一个“搜索”栏，它可以搜索我从里面输入的任何内容 一个 ListView，它从数据库中获取其信息，并通过一个过滤器并在按下一个键后即时更新 ListView 的项目。

现在我正在尝试学习如何实现一种方法来暂时限制我在 ListView 中获得的结果，直到我按下“显示更多”按钮或类似的按钮以获得更多相关结果。

由于数据库可能会在我按下“A”时返回超过 500 个结果，这对手机的功能来说是苛刻的，所以我需要该功能来使我的搜索按钮更有效。

有人能给我一些关于我可以使用什么来制作这样的东西的指示吗？

编辑。

我用于在 ListView 中搜索的当前代码是这样的......

   procedure TContactsForm.Edit1ChangeTracking(Sender: TObject);
var
   Lower: string;
   i: integer;
begin
   Lower:= LowerCase(Edit1.Text.Trim);
   if Lower= '' then
   begin
     if Filtered then
       begin
       ListView1.Items.Filter := nil;
       ListView1.ItemIndex := BindSourceDB1.ComponentIndex;
       end;
     end
     else
     begin
       ListView1.ItemIndex := -1;
       ListView1.Items.Filter :=
       function(X: string): Boolean
       begin
         Result:= (Lower = EmptyStr) or LowerCase(X).Contains(Lower);
       end;
    end;
   end;

 function TContactsForm.Filtered: Boolean;
 begin
   Result := Assigned(ListView1.Items.Filter);
 end;

Answer 1

最简单的方法是为您的 select 语句建模，使其仅返回有限的行数（您始终可以根据用户请求移除限制）。

对于 SQLite、MySQL 和 PostgreSQL，您可以使用 LIMIT 子句：

SELECT acolumn FROM atable WHERE afield LIKE :param LIMIT 4;  

在 SQL Server 中，您必须执行以下操作：

SELECT * FROM ( 
  SELECT column, ROW_NUMBER() OVER (ORDER BY name) as row FROM atable 
) a WHERE a.row <= 4

这具有额外的好处，即数据库生成和传输的数据更少。

在进行完整搜索时，您只需省略限制子句。

如果您想保留已有的结果并只是添加到额外的结果中，请使用
LIMIT 20 OFFSET 5 子句（如果没有 offset 关键字，操作数将反转 LIMIT 5,20）。
您总是想限制以使体验变得活泼。
每个新页面，您获取下 x 条记录。

您甚至可以在用户向下滚动列表时实时执行此操作。
当他接近列表底部时获取新记录。