(18)Lazarus学习ListViewFilterEdit1过滤ListView1数据

参考自带Demo例子：C:\lazarus\examples\filteredits

链接：https://pan.baidu.com/s/1Q7v5EWNBJIF37aKePAvaHA
提取码：cjyv

放一个ListView1和ListViewFilterEdit1

procedure TListViewFilterForm.AddLVItem(St1, St2 : string);
var
    ListItem: TListViewDataItem;
begin
    ListItem.Data := Nil;
    SetLength(ListItem.StringArray, 2);
    ListItem.StringArray[0] := St1;
    ListItem.StringArray[1] := St2;
    {%H-}ListViewFilterEdit1.Items.Add(ListItem);
end;

//给ListView1添加数据

procedure TListViewFilterForm.FormCreate(Sender: TObject);
begin
    AddLVItem('String1',  'String2');
    AddLVItem('String3',  'String4');
    AddLVItem('A String', 'another String');
    AddLVItem('x string', 'Extra String');
    ListViewFilterEdit1.ResetFilter;
end;