В этом маленьком уроке я покажу вам как осуществить поиск текста в компоненте 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 и если найдет выделит его. Довольно просто и понятно.

Добавлено: 31 Июля 2018 21:56:43 Добавил: Андрей Ковальчук Нравится 0

Добавить