德爾福 - 等效字符串列表框搜索的ListView

Question

ListBox有一個非常簡單的方法來尋找它裏面的字符串：

if ListBox1.Items.IndexOf('yourString') > -1 then 
begin 
    //arriba 
end; 

是否有搜索string但使用ListView等效的方法嗎？

Answer 1

使用FindCaption方法TListView。

Answer 2

也許這就是你正在尋找Swissdelphicenter似乎有一個快速的解決方案Link to the article

呼叫FindCaption方法來搜索由指定爲Value參數 串標列表視圖項

我不是一個專家FMX但不能使用：

FMX.ListView.TListViewBase.SearchVisible

有關詳細信息，使用此Link

顯示在您的列表視圖的頂部，可以過濾列表的內容的搜索框。

Answer 3

試試這個：

procedure SarchLV(SearchStr: String); 
begin 

    SearchStr := LowerCase(SearchStr); 

    ListView1.Items.Filter := 
    Function(X: string): Boolean 
    Begin 
     Result:= (SearchStr = EmptyStr) Or LowerCase(X).Contains(SearchStr); 
    End; 

end; 

Answer 4

因此，創建幫手。在表單元中：

THelperListView = class helper for TListView 
public 
    function FindCaption(const aText: string): boolean; 
end; 

function THelperListView.FindCaption(const aText: string): boolean; 
var 
    i: Integer; 
begin 
    Result := false; 
    for i := 0 to Items.Count - 1 do 
    begin 
    Result := CompareText(Items[i].Text, aText) = 0; 
    if Result then 
     exit; 
    end; 
end;