Вправа 9.4

Створити програму, яка надасть можливість пошуку заданого слова в уведеному списку. У разі знаходження співпадання слід його виділити в тексті та вивести відповідне повідомлення.

Розв'язання

procedure TForm1.Button2Click(Sender: TObject);

var s,ss:string;

    p:integer;

begin

   s:=Memo1.Text;

   ss:=Edit1.Text;

   p:=pos(ss,s);

   if p=0 then

      Edit2.Text:='Не знайдено'

   else

   begin

      Edit2.Text:='Знайдено';

      Memo1.SelStart :=p-1;

      Memo1.SelLength:=Length(ss);

      Memo1.SetFocus;

   end;

end;