Как в ListView производить поиск

[ZOD]

Подскажите, плиз. Нужно найти текст, например, "123" в 3-м столбце.
Заранее спасибо.

[mad_Max]

Ищет текст strText в колонке intColumn (нумерация с единицы) и выделяет найденный Item:

Код: Выделить всё

Procedure FindString(strText as String, intColumn as Integer)
Dim i As Integer
For i = 1 To ListView.ListItems.Count
  If ListView.ListItems(i).SubItems(intColumn - 1) = strText Then
    ListView.ListItems(i).Selected = True
    ListView.ListItems(i).EnsureVisible
    Exit For
  End If
Next i
End Sub

Соответственно FindString("123", 3) решает задачу.