Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Май

Поиск значения в listbox

Posted by Chas under Delphi

поиск в листбох другие тексты исчезли остался введенный текст в edit

Аватар
Хитрый способ поиска. Такой поиск это что-то с чем-то. Ну ладно

procedure TForm1.Edit3Change(Sender: TObject);

var i: Integer;

    s: String;

begin

  if edit1.text <> '' then begin

    i:=listbox1.Items.IndexOf(edit1.Text);

    if i>=0 then begin

      s:=listbox1.Items.Strings;

      listbox1.Clear;

      listbox1.Items.Add(s);

    end

    else showmessage('Текст не найден');

  end

  else showmessage('Вы должны ввести текст для поиска');

end;

тема на форуме