FMX,FireMonkey，平台框架下TListView控件搜索、过滤、 查找功能确实强大！！

设置SearchVisibe属性为true，就自动显示搜索框，输入文字，就开始检索了，不用写一行代码！！

类似DataSet的Filter属性

这个输入框的内容不能自己控制，属性不可见，找了段代码，可以控制此搜索框

http://codeverge.com/embarcadero.delphi.firemonkey/xe5-listview-search/1057268

{code}

procedure TForm1.SpeedButton3Click(Sender: TObject);

 var

  I: Integer;

  SearchBox: TSearchBox;

begin

  for I := 0 to ListView1.Controls.Count-1 do

    if ListView1.Controls[I].ClassType = TSearchBox then

    begin

      SearchBox := TSearchBox(ListView1.Controls[I]);

      Break;

    end;

  SearchBox.Text:='';

end;

VCL下也可以用此控件。在onInvokeSearch事件中写代码。

procedure TSearchBoxForm.SBInvokeSearch(Sender: TObject);
begin
  if SB.SearchIndicator = sbiText then
    Log('Text: OnInvokeSearch - "' + SB.Text + '"')
  else
    Log('Audio: OnInvokeSearch');
end;