FMX TListView 搜索 Search

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;