• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Пишем Живой Поиск В Listbox (delphi)

Lomanu4 Онлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,164
Симпатии
222
Баллы
155
VK
Код:
procedure TForm1.Edit1Change(Sender: TObject);
var
   i : Integer;
   edit:tedit;
begin
   Edit := Sender as TEdit;
   if Edit.Text <> '' then
      for i := 0 to ListBox1.Items.Count - 1 do
      begin
         if Pos('Коментарий: ' + Edit.Text, ListBox1.Items[i]) > 0 then
         begin
            ListBox1.ItemIndex := i;
            Break;
         end;
      end;
end;
 
Вверх Снизу