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

made in programmersforum 10

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

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

14th
Окт

Процедура поиска в ListBox

Posted by Chas under Delphi, Пост-обзор

1. Есть ListBox, есть Edit. Составьте пожалуйста процедуру поиска в ListBox строчки, значение которой соответствует значению Edit.Text, с последующим удалением этой строчки.
2. На форме есть Edit. Есть ListBox. Составьте пожалуйста процедуру переноса рандомной строчки из ListBox’а в Edit.

JUDAS
1. находит все строчки



procedure TForm1.Button1Click(Sender: TObject);

var p,l      : integer;

    subStr,S : string;

begin

  subStr := Edit1.Text+#13#10;

  S      := ListBox1.Items.Text;

  l      := LenGth(subStr);

  repeat

    p:=Pos(subStr,S);

    if p>0 then Delete(S, p,l);

  until p=0;

  ListBox1.Items.Text:=S;

end;



procedure TForm1.Button1Click(Sender: TObject);

var p,l      : integer;

    subStr,S : string;

begin

  subStr := Edit1.Text+#13#10;

  S      := ListBox1.Items.Text;

  l      := LenGth(subStr);

  repeat

    p:=Pos(subStr,S);

    if p>0 then Delete(S, p,l);

  until p=0;

  ListBox1.Items.Text:=S;

end;

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