// Call FindCaption Method to search for a list view item labeled by the

// string specified as the Value parameter

// Die Methode FindCaption gibt ein Element der Listenansicht mit der

// angegebenen Beschriftung zur ück, wenn ein solches existiert.

// Syntax:

function FindCaption(StartIndex: Integer; Value: string;

 Partial, Inclusive, Wrap: Boolean): TListItem;

// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);

var

 lvItem: TListItem;

begin

 lvItem := ListView1.FindCaption(0,      // StartIndex: Integer;

                                 '99',   // Search string: string;

                                 True,   // Partial,

                                 True,   // Inclusive

                                 False); // Wrap  : boolean;

 if lvItem <> nil then

 begin

   ListView1.Selected := lvItem;

   lvItem.MakeVisible(True);

   ListView1.SetFocus;

 end;

end;

// To search for a list view subitem (also for items), use this function:

// Funktion, um auch Subitems zu durchsuchen:

{

 Search for text in a listview item

 @Param lv is the listview, supposed to be in vaReport mode

 @Param S is the text to search for

 @Param column is the column index for the column to search , 0-based

 @Returns the found listview item, or Nil if none was found

 @Precondition  lv  nil, lv in report mode if column  0, S not empty

 @Desc The search is case-insensitive and will only match on the

 complete column content. Use AnsiContainsText instead of AnsiCompareText

 to match on a substring in the columns content.

 Created 14.10.2001 by P. Below

}

function FindListViewItem(lv: TListView; const S: string; column: Integer): TListItem;

var

 i: Integer;

 found: Boolean;

begin

 Assert(Assigned(lv));

 Assert((lv.viewstyle = vsReport) or (column = 0));

 Assert(S <> '');

 for i := 0 to lv.Items.Count - 1 do

 begin

   Result := lv.Items[i];

   if column = 0 then

     found := AnsiCompareText(Result.Caption, S) = 0

   else if column > 0 then

     found := AnsiCompareText(Result.SubItems[column - 1], S) = 0

   else

     found := False;

   if found then

     Exit;

 end;

 // No hit if we get here

 Result := nil;

end;

// Example call:

// Beispielaufruf:

procedure TForm1.Button1Click(Sender: TObject);

var

 lvItem: TListItem;

begin

 // Search subitem[0] for text from edit1

 // in der Spalte subitem[0] den Text aus Edit1 suchen

 lvItem := FindListViewItem(ListView1, Edit1.Text, 1);

 // if found, then show the item

 // falls item gefunden, dann anzeigen

 if lvItem <> nil then

 begin

   ListView1.Selected := lvItem;

   lvItem.MakeVisible(True);

   ListView1.SetFocus;

 end;

end;

// Function to search items and select if found

// Funktion, um Items zu suchen unda falls gefunden, sie danach markieren

procedure LV_FindAndSelectItems(lv: TListView; const S: string; column: Integer);

var

 i: Integer;

 found: Boolean;

 lvItem: TListItem;

begin

 Assert(Assigned(lv));

 Assert((lv.ViewStyle = vsReport) or (column = 0));

 Assert(S <> '');

 for i := 0 to lv.Items.Count - 1 do

 begin

   lvItem := lv.Items[i];

   if column = 0 then

     found := AnsiCompareText(lvItem.Caption, S) = 0

   else if column > 0 then

   begin

     if lvItem.SubItems.Count >= Column then

       found := AnsiCompareText(lvItem.SubItems[column - 1], S) = 0

     else  

       found := False;

   end

   else

     found := False;

   if found then

   begin

     lv.Selected := lvItem;

   end;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 lvItem: TListItem;

begin

 // in der Spalte subitem[0] den Text aus Edit1 suchen

 LV_FindAndSelectItems(ListView1, Edit1.Text, 1);

 ListView1.SetFocus;

end;