Delphi XE5的新功能“ TListView内置搜索过滤”

本文整理自网络，侵删。

 
在窗体的OnCreate事件中初始化TListView项。

procedure TForm1.FormCreate(Sender: TObject);
const
  Books: array [0 .. 4] of string = (
    'Delph abc',
    'Delphi XE2入门',
    ' by DelphiXE',
    'Delphi 2009 handbook');
var
  Book: string;
begin
  for Book in Books do
  begin
    ListView1.Items.Add.Text := Book;
  end;
end;
在Button1的OnClick事件中执行搜索过滤。

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchResponder: ISearchResponder;
begin
  SearchResponder := ListView1 as ISearchResponder;
  SearchResponder.SetFilterPredicate(
    function(Arg: string): Boolean
    begin
      Result := Arg.StartsWith('Delphi');
    end);
end;
 

相关阅读 >>

Delphi goto语句用法

Delphi 过滤网页代码 <script></script>

Delphi代码中嵌入asm代码

Delphi 构建时间 -encodedatetime … tryencodedatetime

Delphi 取出鼠百标点击的 stringgrid 中某单度元格的值

Delphi 获取access中的表名

Delphi unigui执行程序部署有3种形式

Delphi 正则表达式在每行开头插入行号

Delphi中datetimepicker组件介绍

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE5的新功能“ TListView内置搜索过滤”