如何在listview中搜索指定的内容

Question

如寻找第一列内容为‘1’的行，并select它。

Answer 1

i:integer
 caption:String;  for i:=0 to ListView1.Items.count-1 do 
  begin
     caption:=ListView1.Items[i].caption;
     if capition='1' then
       break;
  end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Items.Count - 1 do
    if ListView1.Items[I].Caption = '1' then
    begin
      ListView1.SetFocus;
      ListView1.Selected := ListView1.Items[I];
      Break;
    end;
end;

Answer 3

1。用属性caption比较，慢，
2。用方法findcaption，快

Answer 4

var 
  SearchItem    : TListItem;
  begin
  SearchItem:=AdvLstVw.FindData(0,PChar(fedtSearch.Text),False,True);
  if SearchItem<>nil then
  begin
    SearchItem.Selected:=True;
    AdvLstVw.SelectItem(SearchItem.Index);
    AdvLstVw.SetFocus;
  end
  else begin
    MessageBox(Handle,'未搜索到指定记录','搜索失败',MB_OK+MB_ICONERROR);
  end;
  end;