Поиск в ListBox

[Spectre]

При осуществлении поиска в ListBox я использую функцию Perform
Tlistbox.perform(LB_SELECTSTRING,0, logint(Pchar(s))).Все хорошо,
работает. Как мне вывести сообщение если слово, которое я ищу не найдено??? Помигите пожалуйста.

[mihali4]

if Tlistbox.perform.....=0 then
ShowMessage('А вот она!') else
ShowMessage('Нет такой строки!');

[Spectre]

Я использую TMaskEdit [ХХХХ] когда пытаюсь ввести например [0010] то уже при первой цифре выводится сообщение "Такой строки нет". Здесь по другому как то надо.

[pu4koff]

if Tlistbox.perform.....=LB_ERR then
ShowMessage('Нет такой строки!');

[Stilet]

А что IndexOf уже отменили?

[pu4koff]

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

А что IndexOf уже отменили?

Если мне не изменяет память, то IndexOf ищет точное совпадение, т.е. при поиске 'п' строка 'превед' не найдеца, а посредством LB_SELECTSTRING помойму найдет.

[werser]

Можно еще использовать Try/except

[AnalogXP]

Я проблем не замечал с этим. У меня все находит:

procedure TForm1.Edit1Change(Sender: TObject);
begin
   ListBox1.Perform(LB_SELECTSTRING, -1, longint(Pchar(Edit1.Text)));
end;

[Spectre]

Так что же делать? подскажите...

[pu4koff]

я же тебе написал, что надо проверять результат perform с LB_ERR. если равно, значит не нашлось ничего. и второй параметр перформа по идее надо ставить -1, т.к. в мсдн написано, что это индекс, после которого будет искаться элемент