修正 ListView 搜寻问题

问题：如果 SearchEdit 里已输入过搜寻字，再新建 ListView 项目后，会无法显示。

适用：Delphi XE5

源码下载：

 </span><span style="color: #0000ff;"&gt;for</span> i:=<span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> <span style="color: #800080;"&gt;30</span> <span style="color: #0000ff;"&gt;do</span>
 <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
      Item1 :</span>=<span style="color: #000000;"&gt; ListView1.Items.Add;
      Item1.Text :</span>=<span style="color: #000000;"&gt; i.ToString;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

 ListView1.EndUpdate;

 </span>//<span style="color: #000000;"&gt; 如果 SearchEdit 里已输入过搜寻字,再新建项目后,会无法<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>,需要加入下行才能修正.
 ListView1.ClearSearchEdit;

end;

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

FMX.ListViewHelper.pas

interface

uses
FMX.ListView,FMX.Edit;

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

implementation

{ TListViewHelper }

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

 </span><span style="color: #0000ff;"&gt;for</span> i:=<span style="color: #800080;"&gt;0</span> <span style="color: #0000ff;"&gt;to</span> Self.ComponentCount - <span style="color: #800080;"&gt;1</span> <span style="color: #0000ff;"&gt;do</span>
     <span style="color: #0000ff;"&gt;if</span> (Self.Components[i] <span style="color: #0000ff;"&gt;is</span> TSearch<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>) <span style="color: #0000ff;"&gt;then</span>
     <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
          Result :</span>= Self.Components[i] <span style="color: #0000ff;"&gt;as</span><span style="color: #000000;"&gt; TSearch<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>;
          Break;
     </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;

end;

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

end.

原文链接：https://www.f2er.com/delphi/68267.html

修正 ListView 搜寻问题

猜你在找的Delphi相关文章