Найти в ListView

[Shouldercannon]

Как найти в ListView определённое слово и по нахождению его показать сообщение?

[BaronTreep]

for i:=0 to ListView1.Items.Count do
   if Pos('искомое', ListView1.Items.Item[i].Caption)<>0 then
        ShowMessage('OK');

!!! этот код надо проверить, могут быть ошибки !!!

[KORN]

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

так правильно

[Lime]

Сообщение от BaronTreep

for i:=0 to ListView1.Items.Count do
   if Pos('искомое', ListView1.Items.Item[i].Caption)<>0 then
        ShowMessage('OK');

!!! этот код надо проверить, могут быть ошибки !!!

+

ListView1.Items.Count > 0

[Shouldercannon]

Столкнулся с проблемой поиска используя данный

procedure TForm1.BFindClick(Sender: TObject);
var
i: integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
  if Pos(Edit1.Text, ListView1.Items.Item[i].Caption) <> 0 then
    ShowMessage('OK');
end;

Допустим в списке есть запись Вася. Поиск начинаю производить по: В, Ва, Вас и сразу же происходит совпадение. Такого быть не должно, совпадение должно происходить по нахождению полного слова.

[ImmortalAlexSan]

Shouldercannon, pos ищет именно то, что вы введете в ваш едит! Попробуйте поискать на этой странице в браузере какое-нибудь слово, он вам выдаст кучу вариантов! Вы ищите слово "Каша", пишете "к" он вам и находит "Капуста", "Курица" и т.д. Введете слово "Каша", он найдет "КашАлот" "Каша". Так уж поиск работает, он же не знает что у вас на уме. Так что если надо найти, вводите что хотите найти

[bulldog5293]

А если при одинаковом edit1.text надо сделать запрет на добавлелние, тогда как сделать?

[bitSoft]

CompareText

Функция CompareText сравнивает String1 и String2, игнорируя регистр.

Новый код должен использовать функцию AnsiCompareText, которая принимает во внимание многобайтовые строки, и символы с диакритическим знаком.