delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Поис

Наш опрос

Оцените мой сайт
Всего ответов: 528

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Создание поиска в Delphi 7

Для создания поиска понадобяться следующие компоненты :
Memo,Edit,Button все эти компоненты можно найти на вкладке Standard

В обработчике OnClick кнопки прописываем следующий код:

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);

В итоге код должен получиться таким :

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;

Поиск готов

Скачать исходник
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432