На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
В этом маленьком уроке я покажу вам как осуществить поиск текста в компоненте MEMO. Давайте откроем Delphi и создадим новый проект, кидаем на форму компонент Edit, Memo, Button все они с закладки Standart. Отлично, идем дальше, в обработчике OnClick кнопки прописываем следующий код:
Код
procedure TForm1.Button1Click(Sender: TObject); var // Объявляем переменные Find:string; // Искомая строка i:integer; // Счетчик для цикла begin find:=Edit1.Text; // Записываем в find текст из Edit For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки If Pos(FIND, Memo1.Lines.Text)<>0 Then Begin Memo1.SetFocus(); Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1; Memo1.SelLength:=Length(FIND); End; end;
Программа будет искать в Memo текст введенный в Edit и если найдет выделит его. Довольно просто и понятно.
|