[原创] 修正 ListView 搜寻问题

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    Item1: TListViewItem;
begin
     ListView1.BeginUpdate;
     ListView1.ClearItems;

     for i:=0 to 30 do
     begin
          Item1 := ListView1.Items.Add;
          Item1.Text := i.ToString;
     end;

     ListView1.EndUpdate;

     // 如果 SearchEdit 里已输入过搜寻字, 再新建项目后, 会无法显示, 需要加入下行才能修正.
     ListView1.ClearSearchEdit;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     ListView1.SearchEdit.Text := ‘3‘;
end;

unit FMX.ListViewHelper;

interface

uses
  FMX.ListView,
  FMX.Edit;

type
  TListViewHelper = class helper for TListView
    function SearchEdit: TSearchBox;
    procedure ClearSearchEdit;
  end;

implementation

{ TListViewHelper }

function TListViewHelper.SearchEdit: TSearchBox;
var i: Integer;
begin
     Result := nil;

     for i:=0 to Self.ComponentCount - 1 do
         if (Self.Components[i] is TSearchBox) then
         begin
              Result := Self.Components[i] as TSearchBox;
              Break;
         end;
end;

procedure TListViewHelper.ClearSearchEdit;
begin
     if SearchEdit <> nil then
     begin
          SearchEdit.Text := ‘ ‘;
          SearchEdit.Text := ‘‘;
     end;
end;

end.