Clear FireMonkey TListView поиск текста

Question

ListView1.items.filter := nil; 

Я понимаю, что выше очистит фильтр для ListView однако если Поиск видна для ListView и что-то набирается в него, есть в любом случае очистки текста от него ?

Любая помощь будет большим

Спасибо,

Answer 1

for I := 0 to ListView1.Controls.Count-1 do 
    if ListView1.Controls[I].ClassType = TSearchBox then 
    begin 
     TSearchBox(ListView1.Controls[I]).Text := ''; 
    end; 

(на основе DocWiki!)

Answer 2

Благодаря @Dsm, по ответу. Я просто предлагаю трюк, чтобы получить TSearchBox всего один раз и сохранить в переменной. Теперь не нужно делать цикл в TListView.Controls все время. Например,

**interface** 
Uses FMX.SearchBox; 
**type** 
var searchBox_listview1: TSearchBox; //This is a public variable 
**implementation** 
Begin 
    if not Assigned(searchBox_listview1) then 
     for I := 0 to ListView1.Controls.Count-1 do 
     if ListView1.Controls[I].ClassType = TSearchBox then 
      begin 
      SearchBox_listview1:=TSearchBox(ListView1.Controls[I]).Text ; 
      Break; 
      End; 
    SearchBox_listview1.text:=''; 
    End;