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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.041592121124268 seconds