$mymetatags$
Наш опрос |
Создание поиска в 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; Поиск готов Скачать исходник
|
Друзья сайта |